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1.0  INTRODUCTION 


This  document  is  Volume  I  I  I  of  the  three-volume  report  on  the  Tactical 
On-Line  Maneuver  Model  (TOMM) .  Its  purpose  is  to  document  as  completely  as 
possible  in  a  single  volume  the  software  for  TOMM.  It  is  intended  for  the 
technical  reader  interested  in  the  details  of  system  implementation. 

The  TOMM  software  consists  of  some  8^*00  lines  of  source  code,  with 
1.5%  written  in  assembly  language  and  the  rest  in  FORTRAN.  This  does  not  in¬ 
clude  the  library  of  FORTRAN-ca 1 1  able  graphics  subroutines  supplied  by  the 
vendor  of  the  display  system.  TOMM  is  written  for  a  minicomputer-based  color 
refresh  vector  graphics  system  which  resides  at  Integrated  Sciences  Corpora¬ 
tion.  It  consists  of  a  Varian  V 73  16-bit  minicomputer  with  32K  words  of 
memory  and  an  IDIIOM  II  color  vector  display  generator  (stroke  writer)  with 
CPS  monitor.  For  more  information  on  the  hardware,  refer  to  Volume  II,  Section 
3.0  of  the  TOMM  report. 

The  remainder  of  Volume  III  is  organized  in  the  following  way.  Section 
2  contains  information  on  the  overall  organization  of  the  TOMM  software  and 
the  highest  level  control  of  program  flow  within  TOMM.  Section  3  contains 
descriptions  of  all  the  major  data  structures  of  TOMM  and  the  flow  of  data 
into  and  out  of  these  structures.  Section  k  contains  more  detailed  descrip¬ 
tions  of  the  major  software  modules  of  TOMM.  Finally,  Section  5  is  a  complete 
source  listing  of  the  TOMM  software. 


2.0  SOFTWARE  ARCHITECTURE  AND  CONTROL  FLOW 


2.1  TOMM  SOFTWARE  HIERARCHY 

The  TOMM  software  is  organized  as  a  multi-level  tree  hierarchy  with 
a  root  segment  at  the  highest  level  and  twenty-one  segments  called  overlays 
at  the  second  level.  Each  overlay  generally  corresponds  to  a  single  major 
function  or  set  of  related  functions.  In  some  cases,  due  to  the  limited  addres¬ 
sing  capability  of  the  16-bit  minicomputer  on  which  TOMM  was  implemented, 
single  functions  were  broken  up  into  multiple  overlays  in  order  to  stay  within 
the  available  memory  space.  Only  one  overlay  at  a  time  resides  in  memory; 
the  others  reside  on  disk.  The  first  two  levels  of  TOMM  are  shown  in  Figure 
2-1. 


The  root  segment  determines  which  overlay  is  to  be  executed  next,  and 
provides  communication  between  overlays.  The  minicomputer  operating  system 
dictates  that  all  communication  between  overlays  must  occur  through  common 
areas  in  the  root  segment.  The  root  segment  thus  contains  over  eight  thousand 
words  of  common  area:  two  large  files  (the  Master  Data  File  and  the  display 
file)  and  a  number  of  auxiliary  variables.  The  structure  and  flow  of  data 
in  TOMM  will  be  described  in  Section  3*0  of  this  volume. 

Each  overlay  in  turn  is  at  the  top  of  a  tree  hierarchy  containing 
an  average  of  about  fifteen  modules,  some  of  which  are  repeated  in  other 
overlays.  Figure  2-2  shows  the  complete  structure  of  one  of  the  simpler 
overlays,  namely  overlay  3  which  handles  reference  lines. 

2.2  FLOW  OF  CONTROL 

In  the  overlay  structure  described  in  the  previous  section,  only  the 
root  segment  can  call  overlays  into  main  memory  from  disk  and  pass  informa¬ 
tion  between  overlays.  In  order  to  conserve  memory,  however,  the  root 
segment  contains  only  four  executable  statements.  Actual  control  of  program 
flow  therefore  resides  in  an  overlay  which  acts  as  the  "director."  Overlay 
1,  called  DRECTR,  serves  this  function.  Most  of  the  sequencing  of  overlays 
for  the  performance  of  TOMM  functions  is  controlled  by  DRECTR;  most  transi¬ 
tions  between  overlay  modules  of  a  single  function  pass  through  it. 


Fi  rst  level : 

Root  segment 


Calls  all  second  level 


rout i nes 


l 


Second  level  (overlays): 


0  1  = 

DRECTR 

0  2  = 

SCINIT 

0  3  = 

REFLIN 

0  4  = 

DEFTER 

0  5  = 

UNTMOB 

0  6  = 

UNITS 

0  7* 

USTATE 

0  8  = 

MVMMI 

0  9  = 

UNTPTH 

010  = 

TERPTH 

Oil  = 

UNTARL 

012  = 

CLSARL 

013  = 

A0BE1 

014  = 

RNGCNT 

015  = 

URISE 

016  = 

C0NGEN 

017  = 

DNCTR1 

018  = 

DNCTR2 

019  = 

UUDCT 

020  = 

SET  1  ME 

021  = 

REPLAY 

:  The  director  (see  Section  2.2) 

:  Initialize  scenario  display 
:  Reference  lines 
:  Define  terrain 
:  Unit  mobility  illustrations 
:  Establish  initial  order  of  battle 
:  Add  and  delete  units 


Define  single-unit  and  cluster  movements 


:  Draw  AOBE's  (with  017) 

Draw  future  position  contours 


■> 


Draw  detection  contours 


:  Compute  unit-to-unit  detections 
:  Set  time-of-day 

:  Replay  scenario  (With  019  for  current  replay  only) 


Figure  2-1.  First  Two  Levels  of  TOMM  Software  Hierarchy. 
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ructure 


In  order  to  accomplish  this  control  flow  director  function,  DRECTR 
also  serves  as  the  interface  with  the  user  for  the  main  functional  menu  of 
TOMM.  It  waits  for  the  user  to  select  the  next  function  and  sets  up  the 
sequence  of  overlays  necessary  to  carry  out  that  function.  When  the  function 
sequence  is  complete,  control  returns  to  DRECTR.  Figure  2-3  is  a  diagram 
showing  the  highest  level  flow  of  control  in  TOMM,  i.e.,  at  the  overlay 
level.  Functions  not  shown  are  performed  within  DRECTR  itself. 
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DRECTR 


Root  Segment 


lay  sequences  (control  passes  to  DRECTR  between  overlays  in  the  sequence, 
unless  otherwise  noted): 

Define  terrain  and  initial  order  of  battle  :  DEFTER,  UNTMOB,  UNITS 

Recall  scenario  :  DRECTR  itself,  with  UNTMOB 

Reference  lines  :  REFLIN 

Unit  state  (add/delete  units)  :  USTATE 

Future  position  contours  :  RNGCNT,  URISE,  RNGCNT,  CONGEN,  RNGCNT 
Master  replay  :  REPLAY 

Current  replay  :  UUDCT,  REPLAY  (control  passes  directly  between  these) 

Set  time-of-day  :  SETIME 

Detection  contours  :  DNCTRl ,  DNCTR2 


Over 


AOBE's  :  DNCTRl,  A0BE1 
Unit  movement  definition 


MVMMI ,  UNTPTH ,  TERPTH,  UNTARL  (single-unit) 
MVMMI,  (UNTPTH,  TERPTH),  CLSARL  (cluster) 


Once  for  each  cluster  member 


Figure  2-3.  Highest-Level  Flow  of  Control  in  TOMM. 
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3.0  DATA:  STRUCTURES  AND  FLOW 


3.1  OATA  STRUCTURES 

The  major  data  structures  of  TOMM  are  the  Master  Data  File  (MDF)  and 
the  display  file.  The  MDF  is  used  to  store  almost  all  information  about  the 
current  scenario.  There  are  essentially  four  subfiles  included  in  the  MDF: 
terrain  information,  unit  state  information,  unit  actions  (primarily  move¬ 
ments),  and  events  (detections  and  engagements).  The  MDF  is  described  in 
detail  in  Section  3.1.1  below. 

The  display  file  is  used  to  store  display  commands  which  give  a  pic¬ 
ture  of  the  scenario  at  the  current  problem  time,  together  with  all  other 
information  displayed  to  the  used  at  any  given  time.  It  is  described  in 
detail  in  Section  3.1.2  below.  Several  other  auxiliary  data  structures  are 
discussed  in  Section  3.1.3. 

3.1.1  Master  Data  File  (MDF) 

The  Master  Data  File,  an  integer  array  of  3000  words  with  the 
variable  name  MDF,  is  the  framework  behind  any  scenario  defined  in  TOMM. 

At  the  onset  MDF  holds  all  information  about  the  terrain  and  initial  order 
of  battle,  if  one  is  defined.  Should  more  units  be  added  or  deleted  at  a 
later  time,  the  MDF  is  so  changed.  When  unit  movements  are  defined  they 
are  stored  in  this  array,  and  as  these  movements  are  played  out  the  MDF 
is  continually  updated  to  reflect  each  unit's  new  location  and  state 
(e.g.,  which  units  it  detects,  what  terrain  it  occupies).  As  events 
(detections  or  end  of  detections)  occur,  these  are  stored  in  the  MDF  to 
be  recalled  when  master  replay  is  run. 

The  overall  structure  of  the  MDF  is  shown  in  Figure  3*1-  The 
header  is  the  first  four  words  of  the  MDF  and  these  are  pointers  to  the 
areas  in  the  array  which  contain  terrain  data,  unit  data,  event  data  and 
scratch.  For  example,  suppose  the  first  four  words  of  MDF  were  as  follows: 
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MDF 


1 

5 

2 

996 

3 

2121 

4 

2100 

The  first  integer,  5,  is  the  terrain  pointer  and  therefore,  information 
concerning  terrain  begins  at  MDF(5),  while  unit  data  begins  at  MDF(996), 
the  scratch  area  starts  at  MDF (2121) ,  and  MDF ( 2100)  is  the  first  word  of 
the  event  area. 

Each  terrain  feature  of  a  scenario  is  allotted  space  (of  varying 
length)  in  the  MDF  organized  as  follows  (see  Figure  3-2)  : 

1.  The  first  word  is  a  pointer  to  the  beginning  of  the  next 
terrain  stored  in  the  MDF  or  0,  if  it  is  the  last  terrain  feature. 

2.  The  second  word  is  the  code  for  the  terrain  type  (1  =  road, 

2  =  river,  4  =  lake,  8  =  city,  16  =  outer  hill,  32  =  forest,  64  =  simple 
road,  and  128  =  inner  hill). 

3.  The  third  word  is  the  entity  number  of  this  feature. 

4.  The  following  four  words  are  Xmin,  Ymin,  Xmax,  Ymax  which 
denote  the  smallest  X  value,  smallest  y  value,  largest  X  value,  and 
the  largest  Y  value  of  the  given  terrain. 

5.  The  last  block  of  words  detailing  a  terrain  feature  are  the 

sequence  of  points  X^ ,  Yj,  Y^,  . Xn»  Yn  which  delineate  the  region. 

(the  number  n  may  be  different  for  each  feature).  Except  for  simple  roads 

and  rivers  all  terrains  are  closed  contours  and  therefore,  (X^ ,  Y^)  = 

(X  ,  Y  ).  Roads  are  stored  twice,  once  as  a  number  of  line  segments 
n  n 

(simple  road)  and  once  as  a  narrow  closed  contour  which  encloses  the  simple 
road.  Only  the  latter  are  displayed. 

The  next  area,  beginning  at  MDF  (M0F(2)),  holds  data  concerning 
the  current  status  of  each  unit.  The  header  of  this  area  consists  of  four 


OVERALL  STRUCTURE 


TERRAIN  INFORMATION 
POINTER 


Figure  3“1*  Master  Data  File. 


POINTER  TO 
NEXT  TERRAIN 


Set  to  0  if  this  is  the  last 
terrain  feature 


V. 


ROAD  -  -  -  - 
RIVER  -  -  - 
LAKE  -  -  -  - 
CITY  -  -  -  - 
OUTER  HILL  - 

FOREST  - 

SIMPLE  ROAD 
INNER  HILL  - 


1 

2 

A 

8 

16 

32 

64 

128 


For  all  terrains  except  RIVERS  and 

SIMPLE  ROAD  X  -X, ,  and  Y  -Y. . 

n  1  n  1 


Figure  3"2.  Terrain  Information  Organization. 


0 


words  which  detail  (1)  the  number  of  green  units,  (2)  the  number  of  red 
units,  (3)  a  pointer  to  the  first  green  unit,  and  (4)  a  pointer  to  the  first 
red  unit.  Each  unit  is  allotted  an  area  in  the  MDF  of  length  RCDSIZ 
(currently  20).  The  organization  of  these  unit  information  records  is  shown 
in  Figure  3“3- 

Following  this  unit  status  information  is  a  sequence  of  unit  action 
blocks,  one  block  per  unit.  As  seen  in  Figure  3“3,  the  last  word  of  each 
unit  information  record  is  a  pointer  to  that  unit's  action  block.  The 
action  block  for  a  given  unit  contains  a  header  followed  by  a  time-ordered 
sequence  of  action  records  which  specify  the  unit's  movement  through  arrival 
times  at  nodes  and  terrain  transitions.  The  action  records  are  variable  in 
length  to  allow  inclusion  of  other  time-dependent  actions  such  as  changes  in 
mission  and  supply  level.  The  type  of  action  and  length  of  the  record  are 
specified  by  a  bit-code  or  "vector  change  status  word"  at  the  beginning  of 
each  record.  This  is  shown  in  detail  in  Figure  3-4.  Note  that  detection 
and  engagement  events  were  to  be  stored  here  in  the  initial  design.  Since 
then,  they  have  been  moved  to  a  separate  area  in  the  MDF  to  make  for  easier 
editing  of  these  events.  Also  note  that  the  pointers  in  the  unit  action 
block  header  are  relative  to  the  beginning  of  the  action  block  to  allow 
for  easier  editing  of  unit  movements. 

The  event  file  begins  at  MDF  (MDF(4))  with  a  three  word  header.  The 
first  word  is  a  pointer  to  either  the  next  event  to  be  recalled  (when  in 
master  replay)  or  the  first  word  of  a  new  event  to  be  stored.  The  second 
word  of  the  header  is  the  time  (in  minutes)  up  to  which  events  have  been 
determined.  The  third  word  is  not  used  at  the  present  time.  Events  take 
up  five  words  of  the  MDF  and  are  stored  in  chronological  order  (See  Figure 
3*5) •  The  first  word  gives  the  time  of  the  event,  the  second  word  gives 
the  event  code  (Nfriendly  detects,  2«enemy  detects,  -l=»friendly  no  longer 
detects,  -2»enemy  no  longer  detects).  The  third  word  identifies  the  friendly 
unit  by  its  order  in  the  MDF,  and  the  fourth  word  indicates  the  red  units 
in  bit-coded  form.  The  last  word  in  the  event  file  is  at  MDF  ( MDF ( 3) ~ 0  * 

At  MDF  (MDF(3))  the  scratch  area  begins. 
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0 

LABEL 

1 

ENTITY 

2 

SIZE 

3 

TYPE 

4 

X  POSITION 

5 

Y  POSITION 

6 

TERRAIN 

7 

MOVING/STATIONARY 

8 

ASSETS  REMAINING 

9 

ENDURANCE 

10 

DETECTED 

11 

UNITS 

12 

UNITS  IN 

13 

FIRING  RANGE 

14 

ENGAGED 

15 

UNITS 

16 

DETECTING 

17 

UNITS 

18 

MISSION/STATUS 

19 

POINTER  TO  ACTION  RECORD 

Label :  0-30 


Entity  Hi  200  -  299 


i  ze : 


Type : 


1  Brigade 

2  Battalion 

3  Company/Battery 


Arti 1 lery 
Armor 
Infantry 
Meehan i zed 


Infantry 


Terrain  Type:  Bit  coded  See  Figure  3“2 

Moving/Stationary  (1,0) 

Detected  Units:  Set  of  opposing  units  in 
Bit  Coded  form 

Units  in  Firing  Range:  " 

Engaged  Units:  " 

Detecting  Units:  " 

[Mission/Status 

Active  Unit  (0-1) 

-10  Defense 
-  8  Defense 

Inactive  Unit 

0  v/Y/VHfcJ  440  Scenario  Time  of  Extension 

-1  Indicates  unit  is  offscreen- 

action  entries  will  at  some 
scenario  time  enter  the  unit 


t 


Figure  3“3*  Unit  Information  Record. 
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Header 


0  °tr.  to  Last  Action 

1  Ptr.  to  Present  Act'cn 

2  Ptr.  to  Next  Action 

3  Vector  cnance  status  .-.ora _ 

A  X  cos i 1 1  on 

5  Y  position 

6  time  of  arrivai/transi tion  j 

7  terrain  type 

3  detected  units  1-15 
9  detected  units  16-30 

10  units  in  firing  range  I-!5 

11  units  in  firing  range  16- 30 

12  engaged  units  1-15 

I  3  engaged  units  16-30 
]k  resupply  level  (-') 

15  mission  _ 


Un i t  Act i on  Record 

* 

0  vector  change  status  word 

1  X  pos i t i on 

2  Y  pos i t i on 

3  time  of  arri val/transitlon  _ 

A  terrain  type  (always  included) 

•  detected  units  1-15 

•  detected  units  I6-3O 

•  units  in  firing  range  1-15 

•  units  in  firing  range  16-30 

•  engaged  units  1-15 

•  engaged  units  16-30 

•  resupply  level  U) 

•mission  _ 


—  wr.  i  -  ‘  n format  i  on  r^ccr}  Dts.  ''er- 


Initial  *)n i  t  State 
(at  problem  time  zero) 


—  relative  position  in  list  if  all 
words  contained  a  change. 

••Only  those  words  which  indicate 
a  transition  will  be  included  in 
anv  given  vector. 


Vector  Change  Status  Word 

1 0.  0.  n,  ni,  I,  k,  j,  i ,  h,  g  1  f ,  e,  d,  c  1  b ,  a  , 

If  bit  is  set  it  denotes  that: 

a  unit  will  arrive  at  recorded  X,Y  at  the  recorded  arrival  time 
(always  set) 

b  unit  will  arrive  at  recorded  terrain  type  at  the  recorded  arrival 
time  (always  set) 

c  there  is  a  newly  detected  enemy  unit,  labeled  1-15*  at  the  record 
transition  time 

d  there  is  a  newly  detected  enemy  unit,  labeled  16-30,  at  the  record 
transition  time 

e  there  is  an  enemy  unit  within  firing  range,  labeled  1-I5»  discovered 
at  the  recorded  transition  time 

f  there  is  an  enemy  unTt  within  tiring  range,  labeled  16-30,  dis¬ 
covered  at  the  recorded  time 

g  an  engagement  has  commenced  with  an  enemy  unit,  labeled  1-15,  at 
the  recorded  time 

h  an  engagement  has  commenced  with  an  enemy  unit,  labeled  16-30, 
at  the  recorded  time 

i  this  unit  has  been  resupplied  at  the  recorded  transition  tine 

j  this  unit  has  a  new  mission  definition  at  the  recorded  transition 

time 

k  unit  is  active  and  able  to  participate  in  the  scenario 

1  always  set 

m,n  set  as  needed  for  proper  bit  count  (bit  positions  total  number 
of  words  in  action  record  vector) 


if  bit  is  not  set  it  denotes  that: 

a  unit  X,Y  destination  in  this  word  is  identical  to  previous  vector; 

unit  will  wait  at  this  position  until  the  recorded  transition  time 
b,c,d,e,f ,g,h, i , j  there  is  no  change  in  the  unit  state  for  the  cor¬ 
responding  descriptor  words  from  the  previous 
vector  -  (there  are  no  words  containing  description 
of  these  states  in  this  vector) 

k  unit  does  not  participate  in  any  scenario  activities;  it  is 
either  offscreen  or  expended  In  battle 


Figure  3“A.  Unit  Action  Block. 
-13- 


In  Minutes 


f  l: 

Green 

Detect  Reds 

-1: 

Green 

No  Longer  Detects  Reds 

\  2: 

Reds 

Detect  Green 

[-2: 

Reds 

No  Longer  Detect  Green 

RED 

UNITS 


Unit  number  refers  to  location 
in  the  MDF  to  indicate  multiple 
Red  Units  bit  coding  is  used. 
For  example,  to  denote  units 
1,  3,  and  5  the  code  would  be 

2<I-1>„2<3-I)+2(S-I>  .  2| 


Figure  3"5*  Event  Record. 


3.1.2  Display  Fi 1e 

All  information  to  be  displayed  to  the  user  must  be  stored  in  the 
4900-word  display  file.  The  display  file  is  actually  a  program  which  is 
executed  by  a  separate  processing  unit  contained  in  the  display  generator. 

The  commands  in  the  display  file  are  divided  into  subfiles  called  "entities," 
which  are  identified  by  a  unique  entity  number.  In  general,  logically 
distinct  elements  of  the  display  are  separate  entities  in  the  TOMM  display 
file.  For  example,  each  terrain  feature  is  a  separate  entity,  as  is  each 
unit  in  the  order  of  battle.  Figure  3-6  is  a  list  of  the  entities  in  the 
TOMM  display  file,  with  their  entity  numbers  and  description.  The  chief 
advantage  to  the  organization  of  the  display  file  into  entities  is  that, 
once  created,  entities  may  easily  be  made  to  move  on  the  screen,  turned  off 
and  on,  blinked,  changed  in  color,  have  different  alphanumeric  messages 
displayed,  and  so  on.  This  flexibility  is  used  extensively  in  TOMM. 

3.1.3  Other  Data  Structures 

Although  the  Master  Data  File  and  the  display  file  are  the  most 
important  data  structures  in  TOMM,  there  are  several  others  that  will  be 
briefly  explored  here.  A  five-word  array  called  OVLYKY  (in  common  block 
OVRLAY)  is  used  to  record  overlay  sequencing  information.  The  number  of 
the  next  overlay  of  TOMM  to  be  called  is  stored  in  OVLYKY(I).  If  several 
overlays  are  needed  to  perform  a  desired  function,  their  numbers  are 
stored  in  sequence  beginning  with  OVLYKY(l)  up  to  a  limit  of  five.  This 
method  must  be  used  since  an  overlay  cannot  call  another  overlay  directly. 

All  overlay  sequencing  must  be  done  by  the  root  segment  of  TOMM,  which 
obtains  the  necessary  sequence  from  OVLYKY. 

Another  array  called  I  ATT  (of  length  twelve  words)  is  used  by  the 
FORTRAN  graphics  package  to  record  information  about  display  interrupts. 

For  example,  pressing  or  releasing  one  of  the  function  keys  causes  a  hard¬ 
ware  interrupt  to  be  generated  which  halts  the  display  and  causes  information 
about  the  type  of  interrupt  and  key  number  to  be  stored  in  I  ATT. 
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Entity  Number (s) 

Description 

1 

Green  cursor 

2 

Scenario  border 

3 

Time-of-day  scale 

4 

Time-of-day  numerals  and  pointer 

5 

Unit  trackball  ID  circle 

8-  17 

C 1 uster  ID  circles 

100-199 

Terrain  features 

200-299 

Uni  ts 

300-399 

Reference  lines 

400-410 

Future  pos i t ion» contours 

450-499 

Future  position  units 

1000-1010 

Lef t-s ide-of-screen  character  areas 
(menu  area) 

101 1-1040 

Relocatable  character  areas 

1300-1399 

AOBE's 

1700-1799 

Detection  contours 

1900-1999 

Unit-to-unit  detection  lines  (current 
replay) 

2100-2199 

Unit-to-unit  detection  lines  (master 
replay) 

2301-2302 

Unit  mobility  illustrations 

3000-3999 

Movement  paths  and  arrival-time 

character  areas 


Figure  3~6. 


TOMM  Display  File  Entities. 


-16- 


Finally,  there  is  a  disk  file  called  SCENES  which  is  used  to  store 
scenarios  1  through  4.  Each  scenario  is  stored  as  a  copy  of  the  Master  Data 
File  (MDF) ,  together  with  the  current  problem  time  and  the  next  unused  unit 
entity  number.  This  is  sufficient  information  for  TOMM  to  recall  the 
scenarios  at  any  later  date. 

3.2  DATA  FLOW 

Figure  3“7  shows  the  high-level  flow  of  data  in  TOMM.  All  user 
entry  of  data  occurs  through  the  function  keyboard  and  the  trackball  next 
to  the  display  (with  the  exception  of  the  deletion  of  reference  lines,  which 
uses  the  lightpen).  The  function  keyboard  is  used  for  the  selection  of  the 
next  function  to  be  executed,  for  the  selection  of  an  item  from  a  screen 
menu,  and  for  numerical  data  entry.  The  trackball  is  used  to  input  screen 
coordinates  for  the  drawing  of  terrain,  the  placement  and  selection  of  units, 
and  the  definition  of  unit  movement  paths. 

With  the  principal  exception  of  control  information  (selection  of 
function),  the  user  data  input  as  above  is  passed  to  the  Master  Data  File 
(MDF).  This  takes  place,  for  example,  in  terrain  definition,  order-of- 
battle  definition,  movement  definition,  and  changes  therein  such  as  adding 
or  deleting  units  or  movements.  Terrain  and  order-of-battle  definition 
are  also  stored  in  the  display  file.  Detection  information  is  generated 
automatically  during  current  replay  mode  and  passed  to  the  MDF.  The  MDF 
itself  may  be  stored  in  the  disk  file  SCENES,  or  another  MDF  may  be  recalled 
from  the  disk  file. 

Displayable  information  passes  from  the  MDF  to  the  display  file 
when  not  directly  input  by  the  user.  This  occurs  during  the  replay  of  unit 
movements  (and  also  the  replay  of  detections  in  master  replay  mode),  and 
when  an  old  MDF  is  recalled  from  the  SCENES  file  for  display.  Information 
is  never  passed  from  the  display  file  to  the  MDF. 
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Figure  3"7-  High-Level  Flow  of  Data. 
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4.0  MAJOR  SOFTWARE  MODULES 


This  section  conta i ns  wri te-ups  on  the  major  subprograms  in  TOMM. 
Criteria  for  inclusion  were  importance,  length,  and  complexity  of  the  sub¬ 
program.  As  a  result,  26  routines  were  chosen  for  detailed  description  in 
the  fol lowing  pages,  arranged  in  alphabetical  order.  Each  write-up  includes 
the  name  of  the  subprogram  at  the  top  of  the  page,  followed  by: 

(1)  a  list  of  the  overlays  in  which  it  is  used 

(2)  a  description  of  the  purpose  of  the  subprogram 

(3)  a  description  of  the  method  used 

(4)  a  list  of  the  subprograms  called  (not  including  system 
routines  such  as  the  FORTRAN  graphics  package) 

(5)  the  calling  sequence 

(6)  a  description  of  the  subprogram  arguments,  if  any. 
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ADDREF 


USED  IN  OVERLAY (S) :  3 

PURPOSE :  To  draw  connected  line  segments,  reference  lines,  on  a  scenario 
where  they  remain  until  they  are  either  explicitly  erased  or  a  new  scenario 
is  recalled  or  defined. 

METHOD :  REFENT  is  a  variable  in  COMMON  initialized  to  300  which  indicates 
the  entity  number  of  the  next  (or  first)  reference  line.  The  cursor  is  turned 
on  and  is  relocated  by  the  subroutine  MOVENT  when  the  trackball  is  moved. 

The  accept  key  is  used  to  set  a  node  and  the  return  key  is  hit  to  end  a  given 
reference  line.  REFENT  is  incremented  by  1  for  each  reference  line  created. 

SUBROUTINES  CALLED:  LAMPS  MOVENT  CKINT 

CALLING  SEQUENCE:  CALL  ADDREF 

ARGUMENTS:  None. 
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ADDUNT 


USED  IN  OVERLAY (S) :  7 

PURPOSE :  Allow  user  to  add  units  to  scenario. 

METHOD:  User  selects  unit  type,  size,  and  side  from  menus.  A  unit  then 
appears  on  the  screen  which  is  placed  with  trackball  and  accept/reject  keys. 
If  the  unit  is  accepted,  a  unit  information  record  and  a  unit  action  block 
are  created  for  it.  Each  in  turn  is  Inserted  in  the  MDF  using  subroutine 
MDFSHF  to  shift  the  MDF  to  make  room  for  the  new  unit.  The  unit  count  and 
all  MDF  pointers  are  also  updated  (the  latter  in  MDFSHF).  The  procedure 
for  adding  a  new  unit  at  other  than  problem  time  zero  is  incompletely  inte¬ 
grated  with  the  rest  of  TOMM  and  should  not  be  used. 

SUBROUTINES  CALLED:  USTMSG,  SELUTT,  SELUTS,  SELSID,  COLOR,  LAMPS,  ADUMSG, 

ONSEL,  MOVENT,  CK1NT,  OFFSEL,  BLKSEL ,  IWRAM1 ,  MDFSHF 

CALLING  SEQUENCE:  CALL  ADDUNT. 


ARGUMENTS:  None. 


AOBE 


USED  IN  OVERLAY (S) :  13 

PURPOSE :  Determine  and  plot  the  closed  contour  which  represents  the  area 

of  battlefield  effectiveness  for  a  given  unit.  Blink  both  the  chosen  unit 
and  its  AOBE.  Erase  the  contour  from  the  display  file  when  return  key 
is  hit. 

METHOD:  Seventy-two  line  segments  are  created  originating  at  the  unit 

location,  set  5°  apart,  with  length  equal  to  the  maximal  fire  power  distance. 
Each  segment  is  truncated  at  the  "side"  of  a  hill  (see  HILSDS)  if  a  crossing 
occurs.  The  subroutine  TTLEGS  determines  the  terrain  which  this  line  segment 
crosses.  This  information  is  passed  to  NDAOBE  which  returns  (1X2,  IY2)  ,  the 
furthest  point  of  effective  fire  along  the  given  line  segment.  This  results  in 
seventy-two  points  which  are  connected  to  create  the  contour. 


SUBROUTINES  CALLED: 

WHEREX 

NDAOBE 

GSAVE 

IWRAMI 

CELAY 

OFFSEL 

TTLEGS 

GREST 

BLKSEL 

CALLING  SEQUENCE: 

CALL  AOBE 

(UNTPTR) 

ARGUMENTS:  UNTPTR:  The  absolute  integer  address  in  the  MDF  of  the  chosen 
unit. 
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CLSARL 


USED  IN  OVERLAY (S) :  12 

PURPOSE :  Computes  and  displays  minimum  arrival  times  at  path  nodes  for 
cluster  movement,  allows  user  to  modify  these  times,  and  transfers  corre¬ 
sponding  action  records  into  each  cluster  member's  action  block  in  the  MDF. 

METHOD:  The  method  used  is  identical  to  that  of  UNTARL  in  overlay  11,  except 
that  the  maximum  speed  on  each  leg  is  defined  to  be  the  slowest  maximum 
speed  for  any  cluster  member  during  any  terrain  component  of  that  cluster 
member's  movements  during  that  leg.  Note  that  a  cluster  member  may  execute 
several  changes  of  direction  during  a  single  path  leg  as  shown  on  the  screen 
(especially  if  the  cluster  member  is  a  following  unit  in  column  movement). 
Subroutine  CTMTBL  performs  the  actual  minimum  arrival  time  computation. 

SUBROUTINES  CALLED:  PNTDST  CTMTBL  TTABLE 

INSERT 

CALLING  SEQUENCE:  CALL  CLSARL 

ARGUMENTS:  None 
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CONGEN 


USED  IN  OVERLAY (S):  16 

PURPOSE :  To  generate  and  draw  future  position  contours  using  the 
arrival-time  grid  stored  on  disk  in  file  VMATRX  by  overlay  15- 

METHOD:  The  contours  are  generated  using  ACM  Algorithm  531,  i.e., 
GCONTR.  See  the  ACM  documentation  for  details  of  the  method  used. 

SUBROUTINES  CALLED:  GCONTR 

CALLING  SEQUENCE:  CALL  CONGEN 


mini  mum- 


subrout  i  ne 


ARGUMENTS:  None 


DEFTER 


USED  IN  OVERLAY(S) :  b 

PURPOSE :  Define  terrain  features  and  store  them  in  the  MDF  and  the  display 
fi  le. 

METHOD:  Clears  MDF,  resets  pointers,  and  inputs  terrain  using  menu  selection 
of  terrain  type  followed  by  input  using  trackball  and  accept  key.  User  may 
then  accept  or  reject  the  current  feature.  If  rejected,  the  display  entity 
is  turned  off,  but  no  other  changes  or  deletions  are  made.  Roads  drawn  are 
converted  to  corridors  using  subroutine  ROAD.  On  exit,  sets  MDF(2)  to  end 
of  terrain  plus  one  . 

SUBROUTINES  CALLED:  SELTER,  TCOLOR,  D FT RMS ,  TERRN1D,  ONSEL,  SETPNT,  GDRAW, 

ROAD,  BLKSEL,  LAMPS,  CKINT,  OFFSEL 

CALLING  SEQUENCE:  CALL  DEFTER 


ARGUMENTS:  None. 


DELUNT 


USED  IN  OVERLAV(S) :  7 

PURPOSE :  Allows  the  user  to  delete  units  at  problem  time  zero. 

METHOD:  The  unit  to  be  deleted  is  selected  with  the  trackball  circle, 
trackball,  and  accept  key.  The  unit  action  block  and  unit  information 
record  for  the  selected  unit  are  deleted  in  turn  from  the  MDF  using  sub¬ 
routine  MDFSHF  to  shift  the  MDF.  The  unit  entity  is  turned  off,  the  unit 
count  is  corrected,  and  the  MDF  pointers  are  updated  (in  MDFSHF). 

SUBROUTINES  CALLED:  USTMSG,  ONSEL,  SELUNT,  MDFSHF,  OFFSEL,  BLKSEL 

CALLING  SEQUENCE:  CALL  DELUNT. 

ARGUMENTS:  None. 
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DETECT 


USED  IN  OVERLAYS:  19 

PURPOSE :  This  logical  function  is  set  to  true  if  a  unit,  located  at 

1X1, IY1  with  a  presence  radius  of  RAD  11(1),  has  a  line  of  sight  which 
extends  unobstructed  to  a  point  RADI  1(2)  units  from  the  point  1X2,  IY2. 

RADI  I (2)  will  be  set  to  the  detectability  radius  of  a  unit  and  this  function, 
in  effect,  determines  if  the  former  unit  detected  the  latter. 

METHOD :  The  method  used  is  virtually  identical  to  the  algorithm  used  in 

ENDLOS  except  that  DETECT  returns  either  true  or  false. 

SUBROUTINES  CALLED:  NONE 

CALLING  SEQUENCE:  DETECT( I  XI , I Y 1 , 1 X2, 1  ARY , RADI  I ) 

ARGUMENTS :  1X1, 1 Y 1 :  location  of  first  unit 

1X2, I Y2:  location  of  second  unit 

IARY:  array  with  data  concerning  terrain  intersections  of 

the  line  segment  (see  TTLEGS) 

RADI  1(1):  first  unit's  presence  radius 
RADI  I (2):  second  unit's  detectability  radius 


DRECTR 


USED  IN  OVERLAY (S):  1 

PURPOSE:  This  subroutine  controls  almost  all  sequencing  of  overlays  and 

acts  as  an  interface  between  overlays.  Upon  completion  of  a  major  function, 
control  returns  to  DRECTR  and  remains  there  until  the  user  selects  a  new 
option . 

METHOD:  The  manipulation  of  the  integer  array  OVLYKY  is  the  principle 

framework  behind  DRECTR.  OVLYKY  is  used  as  a  stack  to  order  the  calling 
of  overlays.  Each  time  an  overlay  is  exited,  then  the  root  calls  the 
overlay  referenced  by  OVLYKY(l).  An  example  of  overlay  sequencing  occurs 


when  KEY=DFTER  (the  user  wishes  to  define  terrain) 

in  DRECTR  and  OVLYKY  (1)=4, 

OVLYKY (2)=5,  OVLYKY  (3)  =  6- 

OVLYKY  (1) 

OVLYKY  (2) 

OVLYKY (3) 

4 

5 

6 

ROOT  calls 

Overlay  4 

which  is  executed  and 
sets  OVLYKY ( ? )  -  1 

I 

5 

6 

ROOT  calls 

Overlay  1  (DRECTR) 
which  pops  the  stack 

5 

6 

0 

ROOT  calls  overlay  5 
which  is  executed  and  sets 

OVLYKY (1)-1 

1 

6 

0 

ROOT  calls  overlay  1 
(DRECTR)  which  pops  the 
stack 

6 

0 

0 

ROOT  calls  overlay  6 
which  sets  0VLYKY(1)-1 

1 

0 

0 

ROOT  returns  to  DRECTR  which  waits 
in  a  loop  until  a  new  option  is  chosen 

1 

0 

0 
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DRECTR  continued 


SUBROUTINES  CALLED:  SC J N IT  LAMPS  SELFIL 

CALLING  SEQUENCE:  CALL  DRECTR 

ARGUMENTS:  NONE 


f 

i 


GSAVE 


29 


DTCNTR 


USED  IN  OVERLAY (S) :  1 8 

PURPOSE :  Determine  and  plot  the  closed  contour  which  represents  the  area  a 
chosen  unit  can  see.  Blinks  both  the  unit  and  the  closed  contour  until  the 
return  key  is  pushed,  then  erases  the  contour  from  the  display  file. 

METHOD:  Seventy-two  line  segments  are  created  originating  at  the  unit  location 
set  5°  apart,  with  length  equal  to  the  maximal  line  of  sight.  Each  segment 
is  truncated  at  the  "side"  of  a  hill  (see  HILSDS)  if  a  crossing  occurs. 

The  subroutine  TTLEGS  determines  the  terrain  which  this  line  segment  crosses. 
This  information  is  passed  to  ENDLOS  which  returns  1X2,  IY2,  which  is  the 
end  of  the  line  of  sight  along  the  given  line  segment.  This  results  in  seventy- 
two  points  which  are  connected  to  create  the  contour. 

SUBROUTINES  CALLED:  WHEREX  OFFSEL  GSAVE  IWRAMI 

BLKSEL  ENDLOS  TTLEGS  GREST 

CALLING  SEQUENCE:  CALL  DTCNTR  (UNTPTR) 

ARGUMENTS:  UNTPTR:  The  absolute  integer  address  in  the  MDF  of  the  chosen 
unit. 
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ENDLOS 


USED  IN  OVERLAY (S) :  18 

PURPOSE :  To  determine  how  far  a  unit's  line  of  s  i  <j  h  t  extends  from  1X1,  IY1 

to  1X2, 1Y2  given  the  terrain  crossings  in  the  array  IARY.  Return  the  last 
visible  point  in  the  parameters  1X2, 1*2. 


METHOD:  If  the  center  of  the  unit  is  on  a  hill  and  1X1,  IY1  is  on  clear 

terrain,  then  the  routine  proceeds  as  though  1X1,  IY1  were  located  on  a  hill. 
The  variable  1HILL  is  used  to  keep  track  of  the  number  of  times  an  outer  hill 
is  crossed.  The  subroutine  jumps  through  the  transition  matrix  LOSMTX  until 


either  a  dense  terrain  is  encountered  at 
line  of  sight  extends  a  distance  of  LEN1. 


xn’yn 


or  it  is  determined  that  the 


In  either  case,  1X2,  IY2  are  set 


and  ENDLOS  is  exited. 


SUBROUTINES  CALLED:  NONE 

CALLING  SEQUENCE:  CALL  ENDLOS ( I  X I , I Y1 , I XZ , I Y2, I  ARY) 

ARGUMENTS :  1X1, I Y 1 :  the  intersection  point  of  a  unit's  presence  circle 

and  the  line  extending  to  the  point  1X2, IY2. 


1X2,  IY2:  on  input,  the  end  of  the  line  segment;  on  output, 
the  last  visible  point  along  this  line  segment. 

IARY:  an  array  which  details  the  terrain  crossings  along 

the  line  segment  (see  TTLEGS) . 
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FORCES 


USED  IN  OVERLAY (S) :  1,  2 


PURPOSE :  This  routine  is  called  to  create  a  picture  of  a  unit  of  given 
size  and  type. 


METHOD:  Before  FORCES  is  called  the  entity  which  will  become  the  unit  must 
either  be  referenced  (wi th  GENT)  or  initialized  (with  GBEG) .  Depending  on 
the  size  and  type  the  unit  is  drawn.  The  units  are  of  length  32  raster  units 
and  height  16  raster  units. 


SUBROUTINES  CALLED:  None. 


CALLING  SEQUENCE:  CALL  FORCES  (ISIZE,  I  TYPE,  I  EL). 


ARGUMENTS :  ISIZE:  The  size  of  the  unit 

1  Brigade 

2  Battalion 

3  Company 

I  TYPE:  The  type  of  the  unit 

1  Artillery 

2  Armor 

3  Infantry 

4  Mech.  Infantry 

IEL:  The  next  available  element  number  (for  both  input  and 
output) . 
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HILSDS 


USED  IN  OVERLAV(S):  17,  19 

PURPOSE:  Each  hill  has  two  "sides"  which  will  obstruct  both  a  unit's  line  of 
sight  and  firing  effectiveness.  These  "sides"  are  different  for  every  unit, 
depending  on  the  unit's  location.  This  subroutine  determines  these  sides  for 
any  given  unit. 

METHOD:  For  each  hill,  the  function  I0CT  is  called.  This  will  return  an 

integer  indicating  the  relative  position  of  the  inner  hill  with  the  unit 
involved  (see  chart  below).  For  simplification,  if  I  OCT  returns  0,  the 
given  hill  is  ignored.  Otherwise,  a  search  begins  for  the  nodes  of  the 
inner  hill  having  slopes  (with  respect  to  the  given  unit)  with  the  qualities 
listed  in  the  chart  (e.g.,  when  I0CT  =  5,  the  nodes  with  the  greatest  and 
least  slopes  are  found).  The  two  "hill  sides"  will  originate  at  these  two 
nodes,  will  be  perpendicular  to  the  line  from  the  unit  to  the  node,  and  will 
terminate  at  the  outer  hill.  For  each  hill,  the  two  sides  are  stored  as  four 
points  (8  integers)  in  the  integer  array  SIDES.  SlDES(l)  is  set  to  the 
number  of  pairs  of  "sides." 


1  OCT  -  9 
greatest  and 
least  slope 

I0CT  »  8 

least  posi tive  and 
greatest  negative 
slope 

1  OCT  =  10 
greatest  and 
least  slope 

I0CT  -  1 

I0CT  *  0 

1  OCT  *  2 

greatest  and 
least  slope 

hill  ignored 

greatest  and 
least  slope 

I0CT  -  5 

I0CT  -  4 

I0CT  -  6 

greatest  and 

least  positive  and 

greatest  and 

least  slope 

greatest  negative 
slope 

least  slope 

x  min  x  max 

SUBROUTINES  CALLED:  I0CT  TTLEGS 

CALLING  SEQUENCE:  CALL  HILSDS  (UNTPTR) 

ARGUMENTS :  UNTPTR:  Integer  pointer  to  the  absolute  address  in  the  MDF  of  the 
g I ven  unit. 
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MVMMI 


USED  IN  OVERLAY(S) :  8 

PURPOSE :  To  perform  the  initial  stages  of  movement  definition:  selection 
of  type  of  movement,  unit(s)  involved,  any  cluster  centers  or  reference 
points  necessary  to  the  movement  type,  and  finally  drawing  of  the  movement 
path  itself. 

METHOD:  A  set  of  temporary  entities  are  created  for  movement  path  and 
arrival  time  display.  The  user  selects  the  movement  type  from  a  menu, 
specifies  the  unit(s)  involved  using  the  trackball  circle,  trackball,  and 
accept  key,  and  specifies  any  cluster  centers  or  reference  points  using  a 
cursor  and  the  trackball.  Finally,  the  user  inputs  the  movement  path  using 
the  trackball  and  accept  key  in  subroutine  DRWPTH.  A  maximum  of  ten  legs 
are  allowed,  although  less  may  be  drawn  by  hitting  the  return  key  when  done 
The  path  nodes  are  stored  temporarily  in  ARRAY  in  blank  common,  where 
ARRAY ( 1 )  contains  the  number  of  legs.  Column  1  of  array  UNTPTR  (common 
CLUSTR)  is  used  to  store  pointers  to  the  MDF  unit  information  records  of 
cluster  members  if  cluster  movement  is  involved. 

SUBROUTINES  CALLED:  COLOR,  SELMVT,  GREST,  SELUNT,  1DUNTS,  CLCMSG,  ONSEL, 

SETPNT,  OFFSEL,  BLKSEL,  RFPTMG,  DRWPTH 

CALLING  SEQUENCE:  CALL  MVMMI. 

ARGUMENTS:  None. 
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NDAOBE 


USED  IN  OVERLAY (S) :  13 

PURPOSE :  Given  line  segment  ( I X 1 ,  IY1),  (1X2,  IY2)  and  UTYPE  (1  =  artillery, 

2  =*  armor,  3  =  infantry,  4  =  mechanized  infantry),  determine  the  point  along 
this  line  which  is  the  end  of  effective  fire  power, 

METHOD:  A  unit  of  type  UTYPE  positioned  in  terrain  CT  firing  into  terrain 

NT  has  an  effective  firing  range  of  AOBEMX  (CT,  NT,  UTYPE).  If  this  distance 
would  extend  the  unit's  firing  range  beyond  the  outside  border  of  terrain  NT 
into  terrain  NT1 ,  then  the  firing  range  is  the  maximum  of  the  terrain  NT  border 
or  AOBEMX  (NT,  NT1 ,  UTYPE).  If  this  distance  also  exceeds  the  distance  to 
the  outside  border  of  NT1,  then  the  matrix  AOBEMX  is  consulted  again  for  a  new 
distance.  This  process  continues  until  the  end  of  effective  fire  power  is  found. 


SUBROUTINES  CALLED:  TTYP 


CALLING  SEQUENCE:  CALL  NDAOBE  (1X1,  IY1 ,  1X2,  IY2,  UTYPE,  I  ARY) 


ARGUMENTS  :  (1X1,  I Y 1 )  — »(IX2,  IY2):  The  line  segment  in  question. 

UTYPE:  Unit  type  —  1  for  Artillery  2  for  Armor 

3  for  Infantry  4  for  Mechanized  Infantry 


IARY:  An  array  detailing  intersections: 


IARY 

IARY 

IARY 

IARY 

IARY 

IARY 

IARY 

IARY 


(1)  ■  #  of  intersections 
(3)  *  terrain  type  of  1X1,  IY1 

(5)  *  Xj  (1st  intersection) 

(6)  *  Y|  (1st  intersection) 

(8)  ■  new  terrain  type 

(5N)  ■  XN  (Nth  intersection) 
(5N+I)  ■  Y..  (Nth  intersection) 

N 

(5N+3)  ■  new  terrain  type 
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REHASH 


USED  IN  OVERLAY (S) :  21 

PURPOSE :  Master  replay  calls  this  routine  at  every  scenario  time  that  an 

event  has  occurred.  REHASH  updates  the  unit  information  records,  draws  lines 
between  detecting  and  detected  units,  and  blinks  detected  units.  REHASH  is 
exited  after  all  events  occurring  at  the  given  scenario  time  are  processed. 

METHOD:  There  are  four  sections  of  REHASH  whfich  deal  with  the  four  different 

types  of  events  stored  in  the  event  file:  green  detects  reds  (event  1),  green 
no  longer  detects  reds  (event  -1),  green  is  detected  by  reds  (event  2),  green 
no  longer  is  detected  by  reds  (event  -2).  The  unit  information  records  are 
changed,  and  if  the  event  is  a  detection,  a  line  (of  appropriate  color)  is 
drawn  between  the  units.  When  the  last  event  has  been  processed, 

BLKUTS  is  called  to  blink  (or  stop  blinking)  the  units.  There  is  a  pause 
to  facilitate  the  viewing  of  the  detection  lines  and  control  returns  to 
REPLAY  after  these  lines  have  been  erased  from  the  display  file. 

SUBROUTINES  CALLED:  GSAVE  DELAY 

BLKUTS  GREST 

CALLING  SEQUENCE :  CALL  REHASH 

ARGUMENTS:  NONE 


I 


l 


REPLAY 


USED  IN  OVERLAY (S) :  21 

PURPOSE :  When  this  routine  is  called  for  current  replay,  units  are 

moved  according  to  their  previously  defined  paths,  and  new  detections  and 
end  of  detections  are  stored  in  both  the  event  file  and  the  respective  unit 
information  records.  When  used  for  master  replay,  the  only  difference  from 
the  above  is  that  events  are  recalled  from  the  event  file  rather  than 
determined  by  algorithms. 


METHOD:  The  time  clock  and  movements  are  updated  by  the  routines  TMBASE 

(which  has  a  delay  determined  by  replay  speed),  MVMENT,  DSPLAY  and  CLKUPD. 
When  master  replay  is  running,  events  are  recalled  by  REHASH,  and  when 


current  replay  is 

time  to  determine 

used,  overlay  19 

detections. 

is  called  every 

10  "minutes" 

of  scenario 

SUBROUTINES  CALLED:  MESAGE 

CKINT 

TMBASE 

DSPLAY 

DCTOUT 

RPLSPD 

RESULT 

CLKUPD 

BLKUTS 

REHASH 

MVMENT 

DINTRP 

CALLING  SEQUENCE:  CALL  REPLAY 


ARGUMENTS :  NONE 


RISE 


USED  IN  OVERLAY (S) :  15 

PURPOSE :  Compute  a  minimum-arrival-time  grid  V  for  one  or  more  units 
from  the  terrain  information  stored  in  the  MDF.  (V  is  actually  a  27  X  27 
array  containing  a  25  X  25  grid  with  a  "border").  For  a  single  unit, 
each  element  of  V  contains  the  minimum  time  required  for  that  unit  to  arrive 
at  the  corresponding  grid  point  on  the  screen,  given  the  unil:s  initial 
position  as  specified  by  the  operator.  For  multiple  units,  each  element  of 
V  contains  the  smallest  minimum  arrival  time  for  any  of  the  units.  This 
matrix  V  is  stored  on  disk  to  be  used  by  overlay  16  to  compute  future 
postion  contours  (see  CONGEN) . 

METHOD:  The  method  used  is  the  "rising  water"  algorithm  described  in  detail 
in  Appendix  C  of  ISC  Report  271-1.  Two  main  changes  have  been  made:  (l)  the 
matrix  used  to  store  the  actual  minimum-time  path  directions  has  been 
deleted  since  it  is  not  needed,  and  (2)  in  order  to  handle  multiple  initial 
“surf"  points  (  i.e.,  multiple  units),  each  element  of  V  is  temporarily 


incremented 

by  one 

and  multiplied 

by  2^°  before 

processing  the  next  unit 

SUBROUTINES 

CALLED: 

_  RIVRD 

GETG 

GAMMOD 

NTABLE 

SRFAD 

FOM 

DLTSRF 

SCHST 

OUT  2 

CALLING  SEQUENCE:  CALL  RISE  (  DELX,  DELY  ) 

ARGUMENTS:  DELX  =  horizontal  grid  spacing  (  distance  between  neighboring 
grid  points  )  in  raster  units. 

DELY  ■  vertical  grid  spacing  in  raster  units. 
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USED  IN  OVERLAY (S) :  k 


PURPOSE :  Converts  simple  road  paths  as  input  by  the  user  into  closed  corridors. 
The  simple  road  becomes  terrain  type  7.  The  new  closed-corridor  road  is 
stored  in  the  MDF  as  terrain  type  1  immediately  following  the  simple  road. 


METHOD:  Given  a  line  segment  from  (Xj.Yj)  to  (X2,Y2), 
let  X  *  -(ad+bc')/r2 
Y  *  (ac'-bd)/r2 
where  a  *  Yj-Y2 


b  =  X2-X, 


then 


r  = 


XlVX2Y, 

T~T 


yfa"+ b 
c+5r 


(X,Y)  defines  a  point  5  units  from  ( X ^ , Y j )  along  a  perpendicular 
(to  the  right  if  d  ■  c-5r,  to  the  left  if  d  *  c+5*0  .  Now  given 

(b'd-df ' )/A 
Y  =•  (ad'-a'd)/A 
a'  - 
b'  = 

-  I  _ 


a  third  point  (XyY^) ,  let  X 


where 


‘  YY3 
°  X3"X2 
'  X2Y3’X3Y2 

Va'4  b*  2' 

-  c’+5r' 

A  *  a'b-ab1 

Then  (X,Y)  defines  a  point  to  one  side  of  which  is  the  intersection 

of  lines  parallel  to  (X^.Yj)  ^(Y2,Y2)  and  ( X^ > Y^)  ♦  (X^.Y^)  and  5  units  away. 
Special  handling  is  used  for  A<1. 


r  > 
d' 


ROAD  (Continued) 


SUBROUTINES  CALLED: 

i 

CALLING  SEQUENCE:  CALL  ROAD(TPTR) 

ARGUMENTS :  TPTR  =  pointer  to  start  of  simple  road  in  MDF. 
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SCINIT 


USED  IN  OVERLAY (S) :  I ,  2 

PURPOSE :  SCINIT  clears  the  screen  and  the  display  file,  and  sets  up  all 
permanent  entities  for  a  scenario. 

METHOD:  A  call  to  GINI  clears  both  the  screen  and  the  display  file.  The  cursor, 
border,  movie  time  thermometer,  and  time  pointer  are  drawn.  A  unit  of  each  size 
and  type  is  created  but  is  not  shown  on  the  screen.  When  new  units  are  created 
these  prototypes  are  copied.  Character  display  areas  are  also  set  up. 

SUBROUTINES  CALLED:  GINI  RPLSPD  MBTBL 

SHOCUR  FORCES 

CALLING  SEQUENCE:  CALL  SCINIT 

ARGUMENTS :  None. 
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SET i ME 


USED  IN  OVERLAY (S) :  20 

PURPOSE :  This  subroutine  sets  the  scenario  time.  Units  are  relocated, 
blinked  if  they  are  being  detected,  and  have  their  unit  information  records 
updated. 

METHOD :  Time  is  first  set  to  zero.  URESET  relocates  the  units  and  resets 

the  unit  information  records.  The  scenario  is  replayed  minute  by  minute 
as  MVMENT  and  DSPLAY  update  unit  positions,  CLKUPD  advances  the  clock, 
UPDATE  checks  the  event  file  to  keep  the  unit  information  records  current, 
and  BLKUTS  blinks  detected  units. 

SUBROUTINES  CALLED:  SELT  I M  DISPLAY  BLKUTS  RESULT  OFFSEL 

URESET  CLKUPD  UPDATE  MVMENT  BLKSEL 


CALLING  SEQUENCE:  CALL  SET  I  ME 

ARGUMENTS :  NONE 
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TERPTH 


USED  IN  OVERLAY (S):  10 

PURPOSE :  Takes  individual  unit  paths  stored  in  PARRAY  (common  SCRTCH) , 
inserts  any  terrain  crossings,  and  stores  the  resulting  sequence  of  path 
nodes  in  the  MDF  as  unfinished  5_word  records  corresponding  to  unit  action 
records. 

METHOD:  Path  nodes  are  read  from  PARRAY  and  calls  to  subroutine  TTLEGS  are 
made  to  find  terrain  crossings  and  store  the  results  as  five-word  records  in 
the  MDF.  (Note  that  path  nodes  for  non-lead-unit  column  movements  were  stored 
three  words  apiece  in  PARRAY  by  overlay  9)-  One  word  of  each  five-word  record 
contains  the  correspond i ng  leg  number  for  the  path  drawn  on  the  screen  (for 
non- lead-uni t  column  movement  this  information  was  stored  as  the  third  word 
of  each  path  node;  for  all  other  movements  this  information  can  be  computed 
by  TERPTH).  Column  2  of  array  UNTPTR  is  used  to  store  pointers  to  MDF  path 
information  created  by  TERPTH. 

SUBROUTINES  CALLED:  TTLEGS 

CALLING  SEQUENCE:  CALL  TERPTH 

ARGUMENTS:  NONE 
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TTLEGS 


USED  IN  OVERLAY (S) :  5,  10,  17,  18,  19 


PURPOSE :  Given  the  end  points  of  a  line  segment,  determine  all  terrain 
crossings.  Only  those  terrains  indicated  by  JL00K  (in  bit  coded  form)  are 
examined. 


METHOD:  Check  MDF  for  appropriate  terrains.  If  the  line  segment  does  not 
pass  through  the  min-max  square  of  terrain,  ignore  this  terrain..  Otherwise, 
check  for  any  intersection  with  each  line  segment  by  calling  WHEREX.  Store 
each  intersection  in  IARY.  When  all  terrain  has  been  processed,  IARY  is 
reorganized  so  that  the  list  of  intersections  is  in  order. 


SUBROUTINES  CALLED:  WHEREX  SWPSUM 


CALLING  SEQUENCE:  Call  TTLEGS  (XI,  Yl,  X2,  Y2,  I  TYPE,  JL00K,  IARY,  LEN) 

ARGUMENTS:  XI,  Yl,  X2,  Y2:  line  segment 

ITYPE  -  Must  be  set  by  calling  routine  to  the  terrain 

Type  of  XI,  Yl.  If  so  set,  IARY  (3)  returns  this 
terrain  type  masked  by  JL00K. 

JLOOK  “  Bit  mask  used  to  indicate  which  terrain  types  are 

to  be  examined  or  ignored  when  looking  for  crossings 
Set  bits  1  (LSB)  to  6  (1  ■  Road,  ...,  6  *  Forest). 

IARY  -  An  array  in  which  crossings  can  be  passed  back  to 
the  calling  program. 

LEN  -  Length  of  IARY  (number  of  words) 

IARY(1)  ■  Number  of  intersections  found 

■  Negative  of  number  of  points  found  (if  LEN  is  too  small 
for  all  of  the  points  to  be  found) 

*  -1000  (if  LEN  is  too  small  for  any  points  to  be 
found.) 

IARY(3)  -  Terrain  type  of  first  point  in  bit  coded  form 
masked  by  JLOOK. 
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TTLEGS (Continued) 


I  ARY (5)  = 
I  ARY (6)  = 
I  ARY (7)  - 
I ARY(8)  - 

A  ce 1  1  is 


i 

I 


X  of  first  point  of  intersection. 

Y  of  first  point  of  intersection. 

Address  of  terrain  in  the  MDF. 

Terrain  type  of  first  point  of  intersection 
in  bit  coded  form. 

5  words  long  starting  at  lARY(4),  et  cetera. 


UNITS 


'•r 


USED  IN  OVERLAY (S) :  6 

PURPOSE :  Set  up  initial  order  of  battle  following  terrain  definition. 

Friendly  and  then  enemy  orders  of  battle  are  established  and  stored  in  the 
MDF  and  the  display  file. 

METHOD:  The  user  selects  unit  type  and  then  size,  from  a  menu,  followed  by  place¬ 

ment  with  trackball  and  accept  or  reject  key.  Rejected  units  are  turned  off  and 
are  effectively  erased  from  the  MDF.  For  each  accepted  unit,  a  unit  infor¬ 
mation  record  is  added  to  the  MDF.  After  all  units  have  been  defined,  action 
blocks  for  each  unit  are  added  to  the  MDF.  Then  MDF(3)  is  set  to  the  end 
of  the  action  blocks  plus  one. 

SUBROUTINES  CALLED:  OOBMSG,  SELUTT,  SELUTS,  COLOR,  LAMPS,  ADUMSG,  ONSEL, 

MOVENT,  CKINT,  OFFSEL,  BLKSEL,  IWRAMI ,  ACTBLK 

CALLING  SEQUENCE:  CALL  UNITS 

ARGUMENTS :  None. 
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UNTARL 


USED  IN  OVERLAY (S) :  1 1 

PURPOSE :  Computes  and  displays  minimum  arrival  times  at  path  nodes  for 
single-unit  movement,  allows  user  to  modify  these  times,  and  transfers 
corresponding  action  records  into  the  unit's  action  block  in  the  MDF, 


METHOD:  Each  path  node  is  represented  by  an  unfinished  five-word  record 
created  by  overlay  10.  Included  in  each  record  is  a  word  indicating  on 
which  leg  of  the  displayed  path  the  given  node  falls  (each  path  leg  may  have 
multiple  nodes  on  it  due  to  terrain  crossings).  For  each  display  path  leg, 
the  maximum  speed  on  each  (terrain)  subleg  is  computed,  leading  to  a  minimum 
elapsed  time  for  the  leg  and  hence  minimum  arrival  times  for  the  displayed 
path  nodes.  Subroutine  TTABLE  allows  the  user  to  modify  the  overall  path 
speed  or  individual  arrival  times.  Finally,  subroutine  MDFSHF  creates  the 
appropriate  space  in  the  unit  action  block  and  the  now  completed  five-word 
action  records  are  transferred  to  this  space.  All  MDF  pointers  are  updated. 


SUBROUTINES  CALLED:  PNTDST  RUNTSP 

MDFSHF  MVDONE 


TTABLE 

BADPTH 


CALLING  SEQUENCE-  CALL  UNTARL 

ARGUMENTS:  None 
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UNTMOB 


USED  IN  OVERLAY (S) :  5 

PURPOSE :  Create  the  unit  terrain  mobility  illustrations  (cross-hatching)  in 
the  display  file  and  turn  them  off  until  requested  later. 

METHOD:  Parallel  lines  are  created  and  examined  in  turn  using  TTLEGS  to 
find  terrain  transitions  and  store  them  temporarily  in  the  MDF  scratch  area. 
Subroutine  DRTMOB  is  used  to  convert  the  terrain  transitions  into  the  appro¬ 
priate  line  structure  changes  and  store  the  result  in  the  display  file.  Note 
that  the  accompanying  alphanumeric  table  is  not  generated  here,  but  instead 
by  MBTBL  during  scenario  initialization  (since  the  table  entries  are  indepen¬ 
dent  of  the  scenarios). 

SUBROUTINES  CALLED:  COLOR,  IWRAMI ,  TTLEGS,  DRTMOB 
CALLING  SEQUENCE:  CALL  UNTMOB  -  - 

ARGUMENTS:  None. 
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UNTPTH 


USED  IN  OVERLAY (S) :  9 

PURPOSE :  Convert  movement  paths  stored  in  ARRAY  (blank  common)  into  indivi¬ 
dual  unit  paths  stored  in  PARRAY  (common  SCRTCH) . 

METHOD:  No  conversion  is  needed  for  single  unit  movement,  only  simple  transfer 
from  ARRAY  to  PARRAY.  For  each  of  the  4  types  of  cluster  movement,  a 
different  subroutine  performs  the  conversion  of  the  movement  path  as  drawn 
on  the  screen  into  the  actual  movements  performed  by  an  individual  unit  in 
the  cluster.  Cluster  units  are  located  using  the  pointers  in  column  1  of 
array  UNTPTR  created  by  MVMMI  in  overlay  8.  Column  movement  units  other 
than  the  lead  unit  have  each  path  node  labeled  with  an  extra  word  indicating 
the  corresponding  lead  unit  leg  being  executed. 

SUBROUTINES  CALLED:  SNGUNT,  OIROEP,  FlXOEP,  COLUMN,  LPFROG 

CALLING  SEQUENCE:  CALL  UNTPTH 


ARGUMENTS:  None. 


UUDCT 


USED  IN  OVERLAY (S) :  19 

PURPOSE :  This  subroutine  is  called  during  current  replay  to  check  all  pairs 

of  green  and  red  units  to  determine  if  either  a  new  detection  has  occurred  or 
if  a  unit  is  no  longer  being  detected  by  an  opposing  unit.  The  unit  information 
records  and  the  event  files  are  updated.  If  no  new  detections  have  occurred, 
REPLAY  again  is  called;  if  detections  have  occurred,  appropriate  lines  are 
drawn  between  the  units  and  control  remains  in  a  loop  at  the  end  of  UUDCT 
until  the  accept  or  reject  button  is  pushed.  Then  the  lines  are  erased  from 
the  display  file  and  control  passes  to  REPLAY  once  again. 

METHOD:  UUDCT  first  checks  detections  between  green  Unit  1  and  all  the 

opposing  units,  then  checks  green  Unit  2  with  all  opposing  units,  and  so  on. 
HILSDS,  which  stores  line  segments  representing  "hill  sides"  in  the  array  SIDES, 
is  called  for  each  green  unit.  When  a  "hill  side"  lies  between  two  units, 
line  of  sight  is  obstructed.  If  no  "hill  side"  exists  between  the  two  units, 
then  TTLEGS  is  called,  which  returns  in  the  array  IARY  the  terrain  crossings 
of  a  line  between  the  two  units.  This  information  is  sent  to  the  logical 
function  DETECT  which  uses  a  transition  matrix  to  determine  if  the  green 
unit  can  see  the  red  unit.  UUDCT  then  alters  IARY  so  that  the  line  originates 
at  the  red  unit  and  terminates  at  the  green  unit.  DETECT  is  called  once 
again  to  check  if  the  red  unit  detects  the  green  unit. 


SUBROUTINES  CALLED: 

HILSDS 

BLKUTS 

WHEREX 

GSAVE 

DETECT 

GREST 

CALLING  SEQUENCE: 

CALL  UUDCT 

ARGUMENTS:  NONE 
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WHEREX 


USED  IN  OVERLAY (S) :  5,  10,  17,  18,  19 

PURPOSE :  Given  two  line  segments,  determine  if  and  where  they  cross. 

METHOD:  Reject  those  cases  where  one  line  segment  lies  entirely  to  the 
left  or  the  right  or  entirely  above  or  below  the  other.  There  is  a  separate 
section  for  each  of  the  four  cases:  (l)  both  lines  vertical,  (2)  one  line 
vertical  and  the  other  with  a  defined  slope,  (3)  both  lines  having  the  same 
slope,  and  (*»)  both  lines  having  different  slope. 

SUBROUTINES  CALLED:  None. 

CALLING  SEQUENCE:  CALL  WHEREX  (IA1,  IB1,  I A2 ,  I B2 ,  1X1,  IY1 ,  IY2,  1X2, 

IY2,  I  NTARY) 

ARGUMENTS :  ( I A 1 ,  IBl)-^  ( I A2 ,  IB2);  1st  line  segment 
(1X1,  I Y 1 )  — >  (1X2,  IY2);  2nd  line  segment 
INTARY:  array  of  length  5  set  by  WHEREX 

(0  No  intersection 

l  Intersect  ion  at  a  point 

2  Line  segments  coincide 

I  NTARY  (2)\  _.  „ 

I  NTARY  ( 3)J  F,rst  Intersection  Point 

INTARY(1*)1  Last  Intersection 

I  NTARY  (5  )J  Point  (  set  only  if  line  segments  coincide) 
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Supplement:  Brief  Description  of  Graphics  Capabilities  Used  in  TOMM 

As  described  in  Section  3-1*2,  the  TOMM  display  file  is  organized  into 
a  large  number  of  independent  entities,  from  several  dozen  to  several  hundred 
depending  on  the  complexity  of  the  scenario.  Each  entity  may  be  independently 
moved  on  the  screen,  turned  off  and  on,  blinked,  and  changed  in  color.  In 
fact,  each  entity  may  be  redefined  in  any  way  without  affecting  the  rest  of  the 
display.  This  capability  is  essential  for  the  movement  of  units  and  cursors, 
and  for  the  drawing  and  erasure  of  the  many  lines,  contours,  and  messages  used 
in  TOMM.  Entities  may  also  be  easily  copied  (this  is  useful  for  units). 

At  a  lower  level,  the  display  capabilities  implemented  in  hardware  and 
used  by  TOMM  include  four  colors  and  four  intensities,  line  drawing  of  four 
types  (solid,  dotted,  dashed,  dot-dash),  characters  in  four  sizes,  blinking 
of  entities  (or  portions  thereof),  circle  drawing,  32-key  function  keyboard, 
trackball,  and  lightpen  (for  reference  lines  only).  Pressing  one  of  the  func¬ 
tion  keys  causes  a  hardware  interrupt  as  described  in  Section  3.1.3-  The 
real-time  clock  on  the  host  computer  is  used  to  time  the  replay  of  scenarios. 
The  display  area  is  approximately  1200  X  1 600  points  in  resolution  (an  expanded 
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5-0  PROGRAM  SOURCE  LISTING 


This  section  contains  a  complete  listing  of  the  8*400  lines  of  TOMM 
source  code  (not  including  system  routines  such  as  the  FORTRAN  graphics 
package).  The  root  segment  is  listed  first,  followed  by  the  21  overlays  in 
order.  Each  overlay  is  represented  by  its  major  subprograms.  Following  the 
overlay  listings  are  a  large  number  of  subprograms  which  are  either  minor 
in  nature  or  are  used  by  several  overlays 


Social  Sciences 


4.  -r':  ‘A 


i  ,  -  '  "M  t,jf  %  w  -t,  v 

p  t  Til%: 


■  * 


riOW  STATEMENT  A 

I  lot  public  raleose; 
ration  Unlimited 


si. 


HPLii.iT  1 i  1 L  j  i:  I-  (A-CiE-i) 

LOGICAL  OKI  URN 
L‘  ririON/DLAY/ JOLLY 
LuMMGN/MOFILF/MOF(  3D)J)  .MOFMAX 
C  0  MMLiN  /UlSPL/iOPL  l  4900  )  ,  It  PR 
CuMMON/SCRICH/PARRAYUU  ) 

LL K.1UN  ARRAY  ( 6  3 » 
l  ,.MMLN/ AT  T  /  i  Ai  Tl  12) 
l.<_  MMCN/<  VKLAY/CVLYKYI  5) 

Cl MM(  N/F I LES/F ILNUM,  FC6 ( 13  ) 

COMMUN/ BRANCH/ UPTURN 

COMMON/ PRUGRM/ INTKPT 

Cl,  MM  Ok/  KEYL  I  T/  P  uw  1 ,  ROW  2  »  Kurt  4 

CuMMON /r NTCNT/UnTEN T fP  EFlkT 

L  MMCN/JINFf /RCDSlZ 

CoMMCN/UI NTL/LNDRNC ( 3,4)»ASSETSd»4) 

COMHCk/ SpEE  U/SPEEOS (4,9) 

COMMON/ SCREEN/ SI  ZE 
l JMMON/SI NOLfc/UPTF ,F ILPTR 

C  MMT’N/CLUS  IR/UNTP  I  P<  10,2)  .GOT  Y  PE  ,  XZERU  ,  Y  ZE  RC  ,  X  REF  ,  YR  EF  ,  UMT  C.x. 
a, NMLn/PRuHLM/  I  i Mr. 

CGMMUN/RPLAY/1 NOEX, INTRVLI 4) , ENOTIM 
C  t .  MMON/MC V  E / MU  V  ENT 
C  C  MM  ON  /  SAVt/RF  HJ  »FREE»  JUMP 

l)  I  MENS  It  >\  If  YL  AY  (0*21) 


i  >  A  T  A 

IUVLAYd 

.  1)  , 

luVLAY (2, 

1)  ,I(  VLAYd,  I)/  ‘PA 

' »  '  OE 

','0  1 

'/ 

Ua  TA 

1 OVLAY (  1 

,2)  , 

IUVLAYd, 

2) , I OVLAY I 3, 2)/’ PA 

•,'GE 

',•22 

*/ 

DATA 

IGVLAY (  1 

,3)  , 

IUVLAYd, 

3),l0VLAY(3,3)  /  ’PA 

','GE 

','03 

'/ 

DATA 

I OVL AY ( 1 

»  4)  , 

I UVL A  Y (2 , 

4) ,IUVLAY(3,4)/*PA 

*  ,  'GE 

•  ,  *04 

'/ 

DA  I  A 

Il’VlAY  (  1 

*  3 )  , 

I OVL A Y  (  2 , 

5) , I OVLAY ( 3, 5)  /  'PA 

•  ,'GE 

• ,  •  0  5 

'  / 

DATA 

ICVLAYd 

|i)  1 

1 1.;  V  L  A  Y  (2  , 

6),iOVLAY(3,6)/*PA 

','GE 

' ,  •  Jo 

'/ 

TATA 

IGVLAY ( 1 

,  7)  , 

Ll  VLa Y ( 2 , 

7)  , I OVLAY (3 , 7 ) / ' P  A 

•,'GE 

•  ,  *07 

’/ 

uATA 

I OVLAY i 1 

,8)  . 

IOVLAYd, 

8) , IGVLAY ( 3,8)/ *PA 

','GE 

• ,  '08 

'/ 

MATA 

I OVLAY ( 1 

,  9)  , 

iGVLAY(2, 

9) ,IuVLAYd,9)/'PA 

*  ,'GE 

*,  *09 

'/ 

DATA 

I OVLAY ( 1 

,  lul 

,  IC'VLAYl  2 

,10) ,IUVLAYd,10) / 

•PA', 

' GE '  , 

•  lu'/ 

.’ATA 

IDVLAYl 1 

til) 

,  l  UVL AY<2 

,11), I OVL  AY ( 3,1  I)/ 

•PA'  , 

*  GE*  , 

•  11 V 

UA  T  A 

luVL AY ( 1 

t  12) 

,  IDVLAYl 2 

, 12) ,  IGVlAYC 3,12)  / 

•  PA*  , 

•  GE'  , 

•  12'/ 

l  A  T  A 

I  OVLAY  (  1 

.13) 

,  IUVLAYd 

,  13)  , 1 UVL AY  I 3,13)/ 

•PA', 

•GE*  , 

•13'/ 

DATA 

i OVLAY I 1 

.  14) 

,  I  UVL  A  Yd 

,14), IUVLAYd, 14)/ 

•  PA*, 

'GE'  , 

*  14'/ 

DATA 

I OVL AY (  1 

,15) 

,  IUVLAYI  2 

,15) , IGVLAY (5,15)  / 

•PA' , 

•GE'  , 

•  15'/ 

DATA 

IGVLAYd 

1 16  ) 

,  IUVLAYd 

,16), IOVLAYd,  Lb)/ 

•PA', 

'GE '  , 

*  16'/ 

jA  T  a 

I OVL AY (  1 

,17) 

,  I  OVL AVI  2 

,17) , IOVLAY(3,l  7)/ 

•  PA*  , 

'GE'  , 

■17'/ 

:,a  A 

1  uV  L  AY  (  1 

,  1  <i ) 

,  l OVL  AY l 2 

,  Id)  , i OVL  AY (  3,18)/ 

•PA  ', 

•GE'  , 

•  lb'/ 

ATA 

I  i  VI  AY  (  1 

,  19) 

,  1  OVL  AYd 

,19) . IGVLAY (3,19)/ 

•PA*, 

•  GE*  , 

'  19'/ 

DATA 

I  OVL AY ( 1 

,20  ) 

, IUVLAYI  2 

,20),  IUVLAYd,  20)/ 

*  P  A  •  , 

•GE'  , 

•20'/ 

DATA 

IUVLAYd 

» 2  L ) 

»I  OVL  AYd  , 21), I  OVL  AY  li, 21)/ 

•PA', 

•GE'  , 

•21V 

CALL  GINK!  GPL ,49un,  1  ATT,  I  LRR  I 


CALL  LVL 1Y(  ,,  l ,  I  OVLAY (  l  ,UV  LYKY ( 1 1 > I 
IF  (UVLYKYU  )  .NE.OIGOTUIO 


STOP 

Li'iU 

bLOCK  GAT  A 


l.U-LlLl!  INffct-.L-'  (A-Z) 
c-K-W:/,-'DF  lLb/.-iOF  (  J.iO  ))  triUM-lA 
Lu.HML^/F  ILF  i/f  RNUM,FCC<13  ) 

CuMrtuN/KEYL  I  T/«LWl,  KuW2.P0h3.KLW4 
L  'MHLN/OVRLAY/LVLYKY( 5 » 

LLMMON/PFCGPM/  I  NT  RPT 
(  i’.Vj  m/<-  MLNT/li'.Tt  TT.h  FKc.vi  l 
(, i  P  •iLw/ uINm  /KCUSIZ 

Cf:  rffiL-N/O l  * T L/  l  N >NC  (  3 . 4  )  ,  A  S  S  t  T  A  (  3, 4  I 
U  ftMON/ SPEED/ SPteDS (4,9) 

CCHMON/SCREfcN/SlZE 
Ci.  MM  ON/ PKOBLM/ TIME 

Curf.MOr-;/  PPlAY/IldCX,  liVTRVLi  4)  ,  fcNDTIM 
■  i  A  T  A  r-UK  (3)  /  ?000/ 
mFm  i'OFMaA/3  Du,/ 

uATA  LVLYKY/1 .2.0. 3,0/ 

DAI  A  FCr){  3)  ,FCi3(8)  ,FC3(9),  FCBl  lu)/0,  'SC*.  'EM* ,  »ES'/ 
DATA  INiTRPT/-!/ 

D  A  T  A  ’•Dr'  1  »  P  uv*  2  ,  >•  t.h  3  .  R  Oto  4/  1  2d. 6  4, 0.32/ 

DATA  EFENT /30  >/ 

O’*  I  A  Fi,DSTZ/20/ 

DATA  t NOPNC/ 12  *o/ 

DATA  ASSET5/12*u/ 

DATA  SPEEDS/25,25, 4, 23,  0,0, 0,0,  0,0, 0,0,  10,10,3,10, 
+  3, 3, 2, 5,  3, 3,2,5,  4, 4, 2, 4,  Ij,iu,3,10,  2j,2k,3,2j/ 

DATA  SI/l  /  4i)  / 

DATA  TIMf/O/ 

OATA  INDEX, 1 NT KVL, END T I  M/0 .8, Id, 32, 64,2 8dO/ 

END 

END  OF  DATA 


* 


5.UL  r  UU  T  I NP  L  1 
CALL  L>  *<  tC  T  w 
PL  TURN 
LNiO 

FND  Cf-  OAT  A 


SUriROUT  I  lit  UPi.CTE 
Ct-i'HcN/i-iUf  ILC/MOFl  i  U.MJEMaX 
Ct!  MMON/ 0 ISPL/  I  OPL  (  4S>oO  I  *  I E  RR 
CGMMGN/KEYLI T/KUW1 , R0W2.R0W3, P0K4 
CTMMLN/F I L  tS/F ILNUM.FCBI 13  ) 
CuMMCN/L’VRLAY/OVLYKY  (  5  ) 

U  MMCN/3F  ANCH/DK  TURN 
U-.lMUN/  PRUGRM/  INTkPT 
COMMON/ PRGBLM/PTIMc 
C  u  MM  UN / MO V  E / Mu  VENT 
CCiMMON/SAVE/RFPJ,  FREE,  JUMP 
COMMON /Si Nl>LE/UFTR,R ILPTP 

implicit  integer  u-c ,  e-zj 

i  n  I  Lots  Df  T  CR 
luGICAL  DR  TURN 

UPTURN*.  FALSE. 

UuITMri=3 
R ANGCN=4 
DETER -b 
USTATfc=7 
l USAGN= 12 
EtELN=l 3 

unt-imi  =  ip 

Aij  ot:  =  20 

$t  TIM=21 
KC  LSCN=  22 
STRSCN=23 
RPSPD=27 
CU  -  ■<  PL=  28 
M.T  T •-  PL  =29 
XTLMM* 31 
El L1N=  1 
E  l  LOUT41 2 

Ir (oVlYKYIZ  )  •  lc'.O  )  GOTO  1 
CVLYKYt 1 ) =CVLYKY ( 2 ) 

RV  LYKY  (  2  )=CVLYKY  t  2  ) 
GVLYKY(3)=OVLYKY(4) 

OV  LYKY ( 4 )  =GVLY /\Y  l  51 
OV  LYKY ( 5 ) -0 
r  t  T  UR  N 
CL  NT  liJUL 

CALL  LAMPS!  ROW  1 1 R0w2 , RCW3t EUW4) 

TE  ( INTRPT.EO.-l)  GO  TO  3 
KE Y=INTP?T 

i  r>i  t  r  p  r  =  - 1 
GOTO;  t> 

CALL  CK INT ( KEY  I 

IT  C KEY. NE.DFTE P JGQT04 
IF  (RilW2.EU.248  )CA*.C  SCInIT 
P! IME=0 


i.v lyky  ( l)  =4 

•  >V  LYKY  {  2  )  =  S 
<  V  LYKY  (  3)  =6 
RUWl=ld4 
f  UW2=248 
RC  wa  =  248 
1 : '  R  4  =  2  4  c' 

1  .  1  U  r-N 

If  UfcY.NE.kCLSCNiiiUTUS 
CALL  SELFIUHLIN) 

IF (CRT  JFN ) GOTO  2 

if  (•  L;n?.bO,  24b  I  CALL  SCI  NIT 

CALL  SCFlLf 

CALL  S  C  R  F  U  * 

CALL  CLKUPi) 

L.V LYKY (  II  =  3 
Mj  W 1  =  1  8  4 
t  i 1 W  2  -  2  4  b 
Ki  W  ;  =  2  4  8 
'  iW4  =2  48 
KL  TURN 

IF (KEY.hE.XT0MM)GUT06 
:  V  LYKY  I  1 1  = 

r  I  TJ^fi 

it  ( •  C!W  2  .  t  C  •  F/t)  I  be  T  U  3 

If (KEY.NE.UNITM8IG0T07 
CALL  LIT MC*3 

2 

it  (  KLY  •  M:  •  S  TRSCn.lGi.IT08 

CALL  SELF  IL(FI LOUT) 

uli  TC'2 


IF  ULY  .NE.Rf  FLNIGL’TCS 
L  V  L  Y  k  Y  ( 1 )  =  3 
\  l.  TURN 


If  (KEY.NE.USTATEIGOTUlO 
uVLYKYl  l|-7 

f f TURN 


I F  (  Kt  Y  •  Fit  •  F  ANijCif )  GG  T  0  1  1 

l VLYKY (11=14 
GV  LYKY ( 21 =1 5 
CV  LY  KY ( 3 1  =  1 4 
(  VLYKY  (4»  =  16 
GVLYKYl 31-14 
RE  TURN 

IF (KLY.KE.MSTRPL1GGT012 
INTRPT*MSTRPL 
CALL  LAMPS! 72,0, j,j| 
OVLYkY  (11=21 


t-  T  UK  M 


It  It-  (i\LY  .Mi-  .CUP  J  r'L  JGPTOl  3 

I  N  TP  PT=CUF?vPL 
UPTK=U 
ULPT9  =  0 
rVTPTh=MuF<  <*) 

It-  (  lVT  PT*  ,(>T  .  j  )  .-UF(  3  )=rtJf  (ctfl  PTR) 

CALL  L  A  i-V  !\  (  /  2  t  iUt>ll 
rv lyny  ( n=2i 

U  (PI  l.Nf  .fcO.O)  CVLY.4YI  1  )=19 
r-t  TUP  M 

'  It-  (  *  l  Y  .  N  L  .  I'  P  i  0  C  )  oi  ■  T  C  1 4 

CmLL  I-  PL  SP.' 

GOT!  2 

14  IF  (KfcY.i\L.Oi>JIK'vnuUTU15 

CALL  (  I  P  L  #  L  ' '  J  #  f  "  t.  #  J  U  M  P  ) 

L  1/  1  a  T  A  =,.1Jf  (  H  ) 

IF  MFVTPl:  .  )  . A  *>>•  I  P  1 1  •»b.LT.ilDF(  EVTPTK+1  )  )  >  MDF  I  c  VI  PTK  +  1 )  =PI  I  M  t 

lF(LVr  FTP  .Jt  .  u  J  ru  (  ?  I  =  M  JF  (  EVTPTR  ) 

MCVLNT=P9od 
( VLYKY ( 1 )=H 

*•  t  T  Jr  i| 

1.  4  It-  (  i\  l  Y  .  N  t  .  5  f  I  Ii-1 )  CL  I  r  lo 

UV  LYKY ( 1 ) =20 

H  F  T  U  K  N 

lb  if  (KLY.  NC  •  Ll.S- utjIbU  TO  17 
i-VLY  Kr  (1)  =1  7 
L.VLYKY  (  2  )  =  l  8 
KF  TURIN 

1/  IF (KLY.NE.AOBclGL  TU  18 

r VLYKY (  11  =  17 
i  V  LY  KY  (  2  )  =  l  3 
*t_TUPN 

1ft  GL  TO  3 

END 

i  Nl  it  JAT A 


SGi.l  UOTiuE  SCI  TLP 

c.'Mmcn/m  or  I l e/ mdf (  iuou  i  .mofmax 

IMPLICIT  INTEGER(A-Z) 

r-  ****  i5 UTS  ALL  TEP-AIN  IN  MUF  ONTO  SCREEN.  SETS 
C  I'Ll  NTt  P  TU  Bt- GINNING  OF  UNIT  INFORMATION  BLOCK 

rL  PI k-L 

1  FL  PTR=  MUF ( FLPTK) 

2  IF  (M  DF  C  F  L  P  T  P I . £  j .0 ) GOTO  A 

.mxtypc=mof  (flr  r»-  j 
IY  Pt'=MU»  (FLPTP+l) 

IF (TYPE.EU.7)GCTul 

ENT=MUF (FLPTR+2) 

f  L  PTP=Fl  PTK  +  4 
X- MDF ( FLPTR+3 J 
>  =  Mi: F  (FL  PlP  +  ^t) 

CALL  GBEG(ENT,X,Y) 

CALL  T CCLUR (TYPE) 

CALL  GPUT(5,176j,0, Jl 
CALL  GPC'T  (6,43,  X,YJ 

EL  =-7 

FLPTR=FLPTR*5 

3  IF (FLPTP.EC.NXTYPt) GUTU? 

X=  MOF( FLPTK  ) 

Y=rtOF( FLPTR+! J 
CALL  v,PUf  (ML,J:>,X,Y» 

FL-EL4-1 
FL  PTR=FLPTP+? 

GOTO  3 

4  MOF( 2 I=FLPTF+1 

t'L  TURN 
END 

FNU  OF  DATA 


SJin  i,uT  i.it.  Sc-’t-t  !' 

v-L  MW.N/MUF  iLk/.-t-UT  (  i  ,u.j)  tM.)  F  ivAA 

CJMMUN/U 1  NFG/P  CUS I Z 
IMPLICIT  INI  EUEF.  (  A-Z  ) 
uIMENSIC'N  ENTMUM(3,4» 

GAIA  l  "*  T  NU  M/2  U ')  «  £.0  i  t2o2f2'J3t2'j-+f205f2UG*20T»20‘j*204#2  10»21i/ 
C  ****  i.- ISM.  AYS  F».«CLS  AS  JESC-3  lot.)  I.M  SCLUAP  IL)  flic 


JP TK-MOE ( 2 1 

UT  CT  AL=FUF  tUPTRMMUF  (UPTP.+  I) 
If  ( Cll TAL.Lt.u)  -cclUffM 
1 1  LPTR  =MUF  (  CPT  R  +  'i  ) 

FL  PT  P=  UPTR  +  4 

=.cu-o 

SI Dt-  1 


JC  L  1-l.JlcTAL 

1F(FLPTR.EU.EFLPTR)S10E=2 
ENT=MOF(FLPTR+ll 
$1ZE=MDF (ELPTR+2 ) 

T  YP  E— MOF ( TLP  Tk  +  3  J 
X  =MuF  (  FL  PER *4  ) 

Y=MOMFLPTK+3l 

CALL  GCPYI  ENT.E.NTNUMC  S  I  ZE, T YPE ) » X, Y ) 
IE(SIJE.EU.2JCaLL  COLUR(RED) 

IF ( S  IOE . tU • 1 ) C ALL  GPUTI 3, 130,2,0) 
k  L  PI i  -F  LPT R+PCCSlZ 
I  Cj  nT  1  N  UF 


Rl  TURN 
ENU 

kNU  CF  UATA 


» 


L 


oJ  til  (.  'J  T  I nt  LIT  rtf  l 
C  nHMLTx/  ilhA  'iLn/  J T ij  ■■  u 
C(J  MMUIM/Ij  ISPL/IOPLI  49Gv)  )  ,lEfck 
IMPLICIT  INltGcP  (A-C.t-Z) 

LOGICAL  OK TURN 

l.  ****  M.;ulli\t  To  To  CM  A  StLcCTfcG  oMl  TYPt  MJilLilY  ILLUS. 

2  call  seluttitypej 

CALL  oHLT 

IT  ( ITSWI  UNFI  TE<  IDPL 

(.ALL  o  S  1  T  ( «..>  t  i ,  J 

.1-  2  5  J- 1*6 

CALL  GEGH23JO+J) 

2  5  Cl.) NT  I  NUT 

IT  l  tir  T  Lr  i)  )  k  ET  U  -  T 
GC  7  u  (  ?  »  A  »  5  »  L)» TAPE 

3  CALL  GE.  ONI  2  301  ) 

CALL  o E UN ( 2 3u 3 ) 

.  OUT... 2 

A  C  -» L  L  u  L  Ui\i  (  2  3>  <  1  ) 

CALL  utCNI 2304 ) 

GUTU2 

r>  Call  glum 23021 

CALL  Gt! M( 23c5 ) 

UL  Tt  2 

t>  CALL  oECNI  2301 ) 

CALL  GECN (  230o ) 

GiJ  TC  .? 

hS  i) 

LNC  «JE  DATA 


SUBROUTINE  KPLSPP 

COMMON/  L  °L  AY  /  l  iml>EX  »  INT  RVL  (  A  1  ,  Li i  UT  1  A 

IMPLICIT  INTEGER!  A-ZI 

C  ****  CHANGES  P tP  LAY  SPEED 

IhiJc  X=  TNDEx+1 
It  llNi/rX.i;J.5JlNUtX=l 

RA  TE-201'  •  /  ELOA  T  (  INTRVL  (  INDEX!  I  +0.5 

UaIL  GHLT 

CALL  G S L 1 1 1  ♦  »  3 *j  ! 

WH.  JTfc(  15,  i>L  I 

5o  FORMAT (•  REPLAY  COMPRESSION  RATE*) 

cALl  0  SC  M  (  -,,631 
A ^ 1 T E ( 15, 100  I P AT E 

100  f  U  RM  AT  (  i  j  ,  1  MINUTES  PEP  ScCUNJ') 
CALL  G S T T (0,0) 


RE  I  UP  N 
E;Mu) 

t  NO  if  CAT A 


S  'J  tir  L  u  !  I  K£  CL  1  I'd  i 
C  L  MM  uN  /  l  f  S  f '  L  /  I  u  P  L  (  4  4  U  0  )  »  1 1  -a  R 

CUMilUN/AT  T/I  ATT!  L2) 

CUMMUN/f VRLAY/CVlYKY (  5 ) 

COMMON/ APLAY/ I  IWfcX  * 1NTRVL(  4),ENuTIM 
I  i  PL  i  C  i  T  iNTf-oM  (A-/) 

C  lnS  liAN^LrS  ALL  C  I  SPLAY  ENTITY  lull  1  AL 1 Z  AT  I  ON 

CALL  GTM  (  I  L)PL  ,  440  0  »  I A  TT.  I  ERK) 

CALL  GSTT (0,0J 

0  3  1-  T  UP  CURSOR 

CALL  oriEG(  1,0, U) 

CALL  GEOF ( 1 1 

CALL  GPUT(3 ,130,2,0) 

(  ALL  S M C (  U K 
(.ALL  oCm  7, l, 0,0) 

CaLL  GE  OF ( 7 ) 

CALL  GBtG( 5,0,0) 

CALL  GEOF ( 5 ) 

call  GPuT  (  ?.  ,  13  1,2,1) 

CALL  COLi^'Cl) 

(  ALL  G P U T  (  6 ,  1  o G u  ,  2  i>  , 0  ) 

C  SET  UP  BOFUtP 

CALL  G  3  E  G  (  2  ,  L1 ,  u  ) 
lALL  GPUT (3,130,2,3) 

CALL  GPUT(4,l*t  i ,  5 , 3 ) 

CALL  GPUT< 4,140,6,0) 

CALL  GPUT ( 5  *  L  74u «  0, 1 1 
CALL  GPUT(6, 51 ,1023,0) 

LALL  GOUT {7, 5 2, 102 3  ,0) 

CALL  GPUT < B, 51,- 1^23,0) 

GALL  GPuT ( >,52,-1022,0) 

C  5FT  UP  CHARACTER  AREAS 

UU  10  I =0 , 4o 
cNT  I  T  Y-  1,.  .>>)♦! 

Y  s 1000-50*1 

CALL  GBEGCENTITY,-380,Y) 

CALL  GEOF (ENTITY) 

CALL  GPUT (4, 140, 5,0) 

LALI  oPUT(  4,140,6,  J) 

CALL  (.PUMP,  1750,1,  1  ) 

CAIL  GCHA( ENTl TY,6,U, l ,25) 

10  CONTINUE 

CALL  GE  NT ( 1000 ) 

CALL  GPUT (3, 13c, 2,1) 

CALL  jPUT(4,140,5,0) 


(..ALL  ijPUT(4»14G,o,1) 

CALL  '.»PUT(82»Li;0,—  3  8u  *  u  ) 

CALL  GPJT  13  3,11.  ,,lxi-5C,8  ) 

CALL  GPUT (34*114,50,0) 

CALL  GCHAi lOOu ,35, 3,2,25) 

C  Si  T  jp  AiuViE  TIME  The  SMC  ML  1£P 
L  I '  i  r  —  v 

1 JELTA= 1024/ (LOOP-1 ) 

CALL  oCEG  ( 3, 500, 500) 

CALL  GPUT (3,130,2,0) 

C  ALL  GPUT  ( l  ,  1  74c  ,'j,  1) 

CaLL  G°C'T(6»7j,  524,  833  ) 

LaIL  -,PUT( 7,51 ,-1023,01 
CALL  gPUT ( 8, 51 ,-l, 0) 

CALL  GPUT (9,72,3,0) 

I  fc  L= 10 

ijvi  c w  I  —  1,lClP 

CALL  t»PUT(iEL»52»  —  lw,o) 

I E  L— I  EL  +  1 

CALL  GPUT (itL,73,10LLTA,10  ) 
IfcL=  ILL+l 

■  -•*  Cl  i'«l  I  ;mU  E 

C  St.  T  UP  TlMt  PUlMTLr. 

CALL  GGtG( 4 ,500,500) 

CALL  GPUT (3, 130, 2,0) 

CALL  GPUT ( 5, l 74 j, 0,1) 

CALL  G U  T  (6, 104,-590,0) 

CALL  GPU  I  l  7 ,114,5o3,0) 

CALL  GPUT(B,52  ,-20,0) 

CALL  GPUT ( 9, 53,-5,  10) 

CALL  GPUT( 10,71, in, 0) 

CALL  GAUT( 11,53,-5,-10) 

CALC  jPUT ( 12,73,-42,25) 

CALL  GPU  1(13,1750,2,1) 

CALL  GPUT( 14,90, 1HO,0) 

CALL  GPUT ( 15,90, 1H0 , 0 ) 

CALL  oPUT(lfa»90flH0»0) 

CALL  GPUT ( 17,90, lh0,0) 

CALL  GPUT  (  1  ;3  ,  1  0  4  ,  -  8  4 , 0  ) 

(ALL  oPUT(  19,1  14,25,0) 

00  21  EL=20,22 

21  CALL  GPUT (EL ,90 , 1H  ,0) 

CALL  GPUT (33, 100, 0,0) 

CALL  GPUT (34,119,225,0) 

CALL  GCHA (4,35,0,1,25) 

CALL  GPUTI61.1  14,-25,0) 

CALL  GPUT(62, 104, -350,0) 

CALL  GL HA (4,63, 0,1,25) 

IF  (INOEX.GT.O)  IN JEX=  INOtX-l 
CALL  PPLSPO 


*  $  #  & 


.;S  AK  UOlTS 


Jft  T  t  IN  T  =  2  0  0 
,)u  30  TYPF=L,4 

01  25  S  I  Zfc=  1,3 
CALL  GBtGlUuTENT  ,0,0) 
tALL  GEGMUurtNT) 
r  L  =  5 

CALL  f  L*Ct5<  SIZc.  TYPt.LL) 
UNTENT=UM  FNT  +  l 
25  CONTINUE 

30  CONTINUE 

C  ****  .ii.olLITY  T  A  3 L  l 

CALL  MBTSL 

C  ****  CLUSTER  CIRCLtS 

i  j  4  *  j  J  —  C  ,  5 
CALL  GCPY( d+J, 5, Jt o> 

CALL  CCLUR(l) 

40  CALL  GE0F(c>*J) 

C  V  lYK Y (  11=1 

r  l  TUi'.N 

ENG 

clW  UF  LATA 


SUSRLUTINt  (J3 
CALL  FEFL1N 
RETURN 
ENO 

ENO  UF  DATA 


SUBK  UU  T  l  N  L  FEE  LIN 
COMMON/ l  VKLA»/C YLYKYI  B) 

COMMON/ BRANCH/OF TURN 
IMPLICIT  INTEGER  (A-C.E-Z) 

LUG I  CAL  UPTURN 

V,  ****  ALLEYS  USE  is  10  MAINTAIN  A  SYSTEM  JR  REFERENCE  LI  NFS 

UVLYKYI I) =1 

C  *«**  ERASE  OF  CONSTRUCT  LINES?  PROMPT  USEP 
CALL  SELPEF  <P*C'J»E) 

IF  I  UR  TUm.I  RETURN 

C  ****  01  SPLAY  APPROPRIATE  MESSAoE 
CALL  RFFMSGI PRCOPE ) 

CALL  uNSEL 

GOTl 11,2) .PRCURl 

1  CALL  ADDPEF 
CALL  OFFSEL 
CALL  BLKSEL 

RETURN 

2  CALL  UELREf 
CALL  OFFSEL 
CALL  BLKSEL 
RETURN 

END 

END  OF  DATA 


v  7^— 


J _ 


3 J oP  f'U T  1  M L  AUu-'tF 
C  J  MMO * / 1 N TL  N T  /  U.,  T  E  N T  ,  r«  E  FE  N  T 

IMPLICIT  INTEGER  (  4-Z  ) 

C  ***»r  ADOS  USER  DRAWN  REFERENCE  LINES  TO  THE  SCREEN  DISPLAY 

fc.NTl  TY® REPENT 
ACCEPT® 1 
RTURN=?0 
CURSGR= I 
DEVIC£=1 

CALL  LAMPS! 64,o, 0,2 ) 

1  CALL  GBEGl  ENT  I 1Y  *  S  JO,  50.)) 

CALL  GPUT(3,  ISO, 1,3) 

CALL  „PUT (4,1 A0,3, l ) 

CALL  j?OT(  4i  L4Li6i.)J 
CALL  GPUT  ( b , 1760 , 0 , o ) 

CALL  GELN(CURiCKi 

2  CALL  MCV ENT (ENTITY, CURSOR, DEVICE, X,YI 
CALI  CKINT(KtY) 

I F ( KL  Y . NE . \ C  C  E P I • AND . Kb  Y. N c . Rl UKN )GL TQ2 

IF  ( Kt Y . NE • ACCE PT ) GOT 05 

CALL  GPUT! 1, IDO, X, 01 
CALL  GPUT! 2,11  1,Y,0) 

CALL  GPUT  (  6 , 1 60  j ,  1  0 , (j  I 

CLEMNT=7 

3  CALL  MUVENT(ENTITY, CURSOR, DEVICE, X,Y) 

CALL  GPUT! ELLMNT,53,X, Y> 

CALL  C  K  !  N  T  (KEY  ) 

IF (KEY. NE. ACCEPT .ANJ. KEY. N E . RT URN )GCT 03 
IF (KEY. NE. ACCEPT JG0T04 

LLEMNT=ELtMNT+l 

GGTf’J 

4  CALL  GPUT(ELEMNT«-l,53.X,Y) 

CALL  GPUT (ELEMNT+2, 1600,10,0) 

EN  TI TY=ENTI TY* 1 

UUTC 1 

6  PL  FONT  =ENT  I  T  Y 

CALL  GEOFC CURSOR) 

RE  TURN 
tND 


BUbRuJl  !Nt:  DLL  REF 
LUMMCN/F  NTCNT/UNTENT  .REFENT 
CcMMLN/ BRANCH/ OR TURN 
IMPLICIT  INTfcGe°(A-C»E-Z) 
CUBICAL  DR TURN 


:ntnum=juo 

R  A  N'j  t  =  R  f  F  E  NT- 1 
(  N  =  l 
0FF  =  0 

CALL  LP G ENG ( UN , lNTNUM, RANGE J 

CALL  RENRIK(FNTITY) 

IF (0RTURN)GCTu2 
CALL  GECF(ENTITY) 

GUT  LI 

CALI  L  P  SENS  (  OF  F  «  CNT NUN  <  AAi^Gt ) 

RETURN 

END 


SUBROUTINE  04 
CALL  DEFTER 
RETURN 

END 


n  o 


SUBROUTINE  DEFTER 
COMMON/MDF  ILE/MDFI  300U1  ,ML)FMAX 
ClSMMON/OVRLAY/OVLYKY (  5  1 

LG  MM  ON/  BP  AN  CM/  TURN 
llvjICal  bt*  ruj'ivi 
INTEGEtf  i  VLYKY 

DEFINES  TERRAIN  FEATURES  INTO  HOF  ANO  SETS  POINTER 
INDEXING  ADDRESS  AFTER  TERRAIN  DATA 

OB  1  1=1, MOP  MAX 
MOFl I )=0 
1  CONTINUE 

C  SET  FUNCTION  KEY  VARIABLES 

If-  EJCT=  . 

I  ACL  r  T  =  1 

IFLF  TR=5 
MOFC 11=1FLPTP 

MDF  (31  =  2000 
M0F(4  1=i. 


1  J  E  V  =  1 
I  E  NT  =  i  Jl 


C  UPDATE  Tc'-fAIN  PC  INT 1 3 

1-  ITPT  R= I FLPTR 

IT  L  P  T  °-=  1 1  L  p  1  P.  +  1 

C  DETtkMlNfc  WHICH  T  f.f  PAIN  TYPE  t-Aj  oEEN  SELECTED 
C  THEN  EMIL5  IT  INTO  THE  MASTER  DAI  A  FILE 

CALL  SFLTEkl ITYPE) 

IF  U-PTUPN)  G.iTtbu 

It  LASS  =  I 

If  UTYPL  .uT.  :)  1  EL  AS  s  =  ? 

2<>  M  0  F  (  IFLPTK  )  =  I  T  YPE 

IFLPTP=1FLPTK-H 
MDH  I  F  L  P  IK  I  =  I  c  i\T 
IF-LPTK-  IPLP1R+1 
CALL  Grtf  01  I  EM  ,50<i,50u  ) 

Call  tccloriitype) 

CALL  DF  TPMS  1 1  CLASS  I 
CALL  TFf NlDlITYPE) 

CALt  DiJSEl 

CALL  SETPNTI LENT, I  DEV, I  X, I Y , IACCPT) 

CALL  GPUT(1,IOG,IX,0) 

CALL  OPUT (2,110»1Y»0) 

CALL  ODRAwI I  CL  ASS  ,  MOF , I FLP TK , 1  ENT , I  X, IY) 

M'.J FI  iTPTF )= IFLPTk 

IF I1TYPL.NE.5) GOT  028 

IHLPTR= ITPTR 

II  PI P= IFLPTR 

IF  LPTh  ®1FL  1 

I  T  Y  P  L  =  8 

I fc  NT  —  I ENT  +  1 

GJTU20 

?e  IF  IITYPL.CC.1  )CALL  RUAJUTPTK) 

CALL  BLKSEL 

CALL  GHLT 

CALL  GSCHI 1000,8) 

W^ITU  15,1000) 

luOO  f OKMAT ( • ACCEPT/hfc JECT  FEATURE1) 

CALL  GST  T  1 1)  ,0  ) 

CALL  LAMPS! 0,0, 0,3) 

TO  CALL  CKINT(KFY) 

IMKFY  .Nl.  IACCPT)  G U  TO  Ac 


if  ( mn'i  a  *. i)  n  rTK  =  .-ur  u  r  -ui 

If  Lf’  T  K  =  OF  (  1 1  i'  T  4\  ) 

It  Ni  =.•!:••  f  (1TFT-  f^lfl 
ofi  To  1 ' 


40  IF  (KEY  .No.  IRcJCT)  Gl!  TU  Au 
CALL  GEC  F  (  f’OF  (  IT  I>  1  s<  +  2  I  i 
I  l  NT  =tiOF  (  I  I  p  1  r 
if-lpth=  i  t  ;>t  r 


iF(lTYR£.Nt.l)GCT045 
CALL  oFLFlMDft I  TP  TR  +  2  J ♦  1  > 

!cM=!1,!F  (  ITPTR*£)+? 


4  5  1H  IT YPC.NE .b) GoTClu 

IFLPI R= IHLPT9 
LALL  3ECF  ( i-IUF  (  IHLPT  R+2  )  ) 
GO  T  U  10 

‘>0  MOF  I  I  T  P  T  F  )  =  0 

MGF( 2)=ITPTF+1 


CALL  QFFSEL 
CALL  8LKSFL 

l)V  LYK  Y  (  1)  =1 

RETURN 

END 


l  NO  Cf  oATA 


o  r. 


SU  hi  luT  1 1'!  L  (  I  T  Y  P  L  »  I  -« K  R  A  Y  »  1  P  T  t  t  1 E N  T  ,  J  X  «  J  Y  ) 


DRAWS  SIMPLE  PATHS  IE  CLOSED  CONTCURS  AND  PUTS  A 
LIST  Lf-  THE  ANCHOR  PUINTS  INTO  IAPRAY 


c 

1  TYPE  : 

I 

j  1  M  PL  E  PATH 

(. 

2 

CLOSED  lUnTl-UP. 

C 

I  ARRAY: 

THE 

ARRAY  TO  CGMAIN 

THE  ANCHOR  POINTS 

c. 

1  P  T  ft  : 

i  Ul) 

EXtS  dEGINNINo  OF 

l  ARRAY 

C 

I  EM  : 

1  HE 

ENTITY  iMU/iuLK  OF 

THE  FIGURil 

c 

JX.JY  : 

THE 

INITIAL  POSITION 

□F  THE  FIGURE 

ul  Ml N S  1 1  :'J  I  APr  AY  (  1 ) 

IT  OP  =  I  PT  1 

I  PTR-i  PTP.+  4 
IXMIN=9S99 

I X MAX=0 
lYMli\=9  99*i 
!  Y  M  A  X  =  i  j 
i  r.  uh  sp  =-1 
I0£V=  I 
TP  Lt:R=  100 
i UOD  E  =  l 
IR  INI  S=  JO 
M  Y=-l 
NOLI  QT  =0 
IT  CPRW=0 

IMITYPE.tQ.il  IT0PRW=64 
CALL  LAMPS! I  TO  PR  W,0»0*  2) 

CALL  GSTTtw.D) 

l ALL  GELNIICuaSM 

C  SlT  TERRAIN  To  ABSOLUTt  MODE 

CALL  GPUTI 5, 1760,0, 0» 

II  L=6 

('.  SAVE  STARTING  POINT  FOR  LAfcR  COMPARISON 

IX=JX 
I  Y=  JY 

■j  *.j  T  l  t  v : 

P'  CkLL  GPUT ( ILL, 53,1 X, I Y) 

I L  L= I EL*l 

C  PLACE  NCUE  COORDINATES  IN  IARRAY 


J./ 


I  ARP  AY( I PTR ) =1 X 


1«  At-  AY  (  1  =>TA+1  )  =  I Y 
if  (IX  .Li.  1XMIN)  l  X  M 1  N  =  I  X 
If  (1Y  .LT.  I Y  M  l r  < )  I  Yri  1  N  =  l  Y 
If  (IX  .GT.  I AM  AX)  I XMAX-IX 
IfllY  .GT.  IYMAX)  I YMA  X  =  I Y 
1PTP=I PTR+2 

C  S  Hi  W  int'iJt  C  N  SCREEN 

CALL  GPUT( IEL,45«IX*IY) 

I E  L=  I EL+I 

NOOT  OT  =  NODT  GT  +  I 

IF  (KEY  .Fw.  IF  INIS)  uc  T3 

C  UPi)  AT  L  •’J'Jdt. b  A  N  L  ShlMENT  FRIM  PI-tVIUU.S  NOD  L 

4'.  CALL  MOVENT  (  IEM  ,  ICUPSP  ,IOtV,  IX,  IY) 

CALL  GPOT(iEL,53,IX,I Y) 

CALL  CKINThsEY) 

IP (l TYPE  .1  C.  1)  GO  TO  *>'; 

C  CHECK  FOR  CLOSURE  AFTER  SECUNC  NODE  IS  ESTABLISHED 

IF (NUDTJT  .LE.  1)  GO  TC  60 
DX=I X-JX 
DY=1 Y-JY 

D  i  jT  =  DX*DX+DY*  OY 

IF  ID  I  ST  .GT.  TOLER)  GO  TO  60 

C  CLuSE  THI S  CONTOUR 

l  A=JX 
I  Y  =  J  Y 

KFY=  I F  I M  S 
GO  10  20 

5.)  II  (KEY  .EU.  IFI.mIS)  GO  TO  20 

6  0  X=  I  X -  1  A P P.  A  Y  (  I  R  T F -  2  ) 

uY  =  I Y -I AF» AY (5 PTR-i) 

IF  ( DX*OX+UY*UY  .LT.  TOLER)  GO  TO  40 
IF  (KcY-lNCDE)  40,20,40 

STi.  XL  MIN,  MAX  Cul  rDI  IATES 

f  i  CALL  GEOF ( I  CUR  SR) 

I  APR  AY ( I  TUP )= I XMIN 
IARRAY  (  III  P4-1  )  =  IYMIN 
(  A-  AY  (  Mop*?)  -  1  XM  AX 
I  A  Fi  AY  (  1  T'  R+3)  =1  YMAX 
- 1  f  L  ^  N 
l  NO 


SUBP.GUTlNt  05 
CALL  U NT MOB 
RfcTURN 


SUBROUTINE  UNT  Mu 8 
CGMMGN/MDF1 Lt/MDF ( 3000 ) ,MDFM4X 
CCMMDN/nVRLAY/nVLYXYI  5) 

IMPLICIT  INTEGER  (A-R.T-Z) 

LOGICAL  SCR  NUT 
01  MENS  ION  ENTNUMI2) 

DATA  LNTNUK/2301 *2302/ 

****  PEP  FOR  Mo  ANALHoLS  UF  TEP-AIivi  So  TO  FACILLITATE  MUbILITY  ILlJS. 

OV  LYK.Y  (  1 J  -  I 
TPTR=MDF ( 1 ) 

IF  (Mi)F(TPTR).EQ.O)  RETURN 

ISKf  PT  =  Mi.F I Z ) 

I N  INC=  100 
SC RNOT*. FALSE. 

TYPFO=  <-l ) 

MA  SK=bG 

LENGTH=MDFMAX- ISKRPT 

DC  1000  T YPL=  1  » 2 

CALL  GBEGI ENTNUMITYPfc)  ,0,0 ) 

CALL  GEGF(ENTNUMITYPF) ) 

CALL  COLOR ( 3 ) 

CALL  GPUT  (  !> » 1  7bG *  0,  0 ) 
tL  FMi\T  =  6 

XG=(-100) 

YO  =  (  -  1 1 2  5  ) 

X  L  =  ( 1125) 

Y  L  =  I  100) 

LI  MI T  =  b?b 
GUTGIOO 

YO=YOF IN INC 
YL=YH-I  NINC 

IF  (YO.LL. LIMIT  )GGT  JlOO 
If  (L1MI T.t 0.2150»GJTul000 

Y  0 - ( 100) 

Yl=(-ll25) 

LI  MM  =2150 

I  IF (SCR HOT  I  GUI u 101 

TYPFU=I*RAMI<XO,YO,MASK) 

CALL  TTLEGS(XO»YO»Xl,Yl,TYPEO,MASKt  MOF ( ISKRPT ), LENGTH) 


1  1  TY  ?to'  =  frtPAM!  (XI,  VI  , MA  SK ) 

CALL  TT LEGS (XI ,Y1 ,X0 ,Y 0 ,TY PtO, MASK, MQF ( ISKRPT ), LENGTH  I 
200  CALL  DRTM08 ( TYPE, MOF ( I SKRP T J , E Lfc MNT ) 

SCPNCT=.NEiT.SCRNDT 
G  0  T  G  1 0 


i-jOu  cgntinul 

RE  TURN 


SUBROUTINE:  DRTHuBI  TYPE,  IARRAY,  LLEMNT) 

IMPLICIT  INTEGER  ( A , C, D ,F- R , U-Z ) 

INTEGER  TERRAN,TYPE,TTYPE, MOBIL, ELEMNT 
LOGICAL  BE AMPS, TRANS, ENTER  ,  cl  X I  I  ,  SET  BIT 
l)  I  MENS  I  LjN  MUuL  I  Y  (6,  ?  )  ,  SETB  II  (  5  )  ,  I  A«  P  AY  (  U 
DATA  MLbL  TV/?,  A, 1 , 3 , 3 , 2  ,2, i , 2 , 1 , l ,2/ 

0  ****  GENERATtS  GRAPHICS  FCR  MOBILITY  ILLUSTRATIONS 

EX  1 7  =  .  F  AL  S  t  . 

LNTI  f-  =  .  T R U t  . 

LM  CR I L  =  09 
t?OAU=l 
LAKt=2 
Cl TY=3 
F  0  P  t  S  T  =  4 
Ml LL=S 
CL  t  AR  =  6 

DO  1  rE<5pAN  =  PCAD,HILL 

SETBITITERF  AN )=. FALSE. 

1  CONTINUE 

BE AMPS=.F ALSfc. 

?NICNT=  lAP.RAYl  ii 
IE  (PNTCNT.LLV.*  RETURN 

DO  10  N=l» PNTCNT 

DELTAT=I  AP«AY<N*5+3)  -  i  ARP,  AY  IN  *5-2 ) 
TRANS=EXl T 

IFIDELTAT .GT. J)TPANS=  ENTER 
TTYPE  =  I  ABS(  OELTAT  l 

IFITTYPE.E0.9J  TTYPt=4 
SETbIT(TTYPE)-TRANS 

IFIOLLTAT.tG.d. AND . SE T8 IT l LAKE H LAKE=CITY 
I  FIDEL TAT .EQ.(-B) . AND . SETB I T ( 2 ) ) LAKE =2 

TtRPAN*RuAD 

I F ( SETB I T ( TEHRAN ) ) GOT G 120 
DO  L 10  TLRRAN=LAKE.HI LL 

IF( SETB I T I  TER RAN) IGUT0120 

110  LUNT INUL 

TE  R P  AN  =  CL  t  AH 


l  2  n 

121i. 

1 22G 

1221 

Lv 


MC'lJ i  L-Ml'B LT  Y  (  Tt k  RAN  »  I Y PE) 
If  ( i  i_  •  nfc  •  2  J  J  J  T(j  i  2  iu 
BEAMPS=. FALSE. 

GCTC  lu 


I F ( BFaMPS) GOT  CL2  2u 

CALL  uPU  r  (ELtrfNT  .7-5.IARRAYIN  +  5)  .IARPAYI  N*  5*1)) 

hLLi-.NI  -LLLMNT  *1 

IF  (MLB  I L.  EQ.  LM03  iL)  GOTO  1221 

CALL  GPUTIELEMNT  .130, L, MOBIL) 

IF  (MUBiL.EQ.il  CALL  GPUT ( E LE MNT , 130 , 2, 3 ) 

IF  (M._  .31  L  .  FQ.3  I  CALL  GPUT < E LEMN1 , 130 , 2 , 2) 

IF  (MCiiFL.tQ.u  )  CALL  uPUT  ( «_LcMNT  .  1  30 , 2 , 2 ) 

LMGH IL=M 081 L 
ELEMNT=ELEMNT+1 

CALL  GPUT (ELEMNT .53 . I  ARRAY ( N* 5  +  5  )  , I  ARP  AY ( N*  5+6 ) ) 
ELEMNT=ELEMNT+1 

LLAi'tPo= . TRUE  . 

CliNT  1  NUl 
Rt  TURN 

END 


♦ 


4 


SUBROUTINE  06 
CALL  UNITS 
RETURN 
END 


SUBROUTINE  UNITS 
CbMMON/BP ANCH/ JRTUAN 
COMMuN/MDFILE/MOFI 3000) ,MOFMAX 
C'JMMCjN/GVRLAY/CVLYKY  (  S  ) 

CU  MMCN/UI  NT  L/ 1  .V) ( 3 , 4  ) .  A  SSiT  S  (  3. 4  I 
C.MMGN/UINFr/RCUSI L 
CliMMUN/ENTCNT/UNTENT  »RtFcNT 
IMPLICIT  INTEGER  (A-C.E-Z) 

LOGICAL  DR TURN 
DIMENSION  ENT NUN (3, 4) 

DATA  LNTNuH/2'  :  ,2^1, 2^.2 ,2-J  3 , 2 04 , 2o5 , 206  ,2 c7  ,208  ,209 ,2  10 , 2  i  1 / 

C  ****  ESTABLISHES  INITIAL  CODER  OF  BATTLE 

SI OE-1 
T  B  AL  L-  1 

EN  T=  2  40 

EJECTED 
ACCEPT=  l 
PPSTUR=1 
UC CUNT  =  0 
F JCNI =o 
R  E  0—0 


JL(J(’K  =  189 


UPIR=MQr  (  2  > 

FLPTP=UPTR*4 

1  CALL  OOBMSG (SIDE) 

CALL  SELGTT (TYPL) 

I F  (  .NuT .DRTURN  )  GOT  0  2 
IF(S  IL)E.£Q.2>GCT06 

SIDE:  =2 

F  uCM=UCuUNT 
UC  LON T  —  0 

MG  F  {  U  P  T  P  +  ?  )  =  F  L  P  1  V 
GO  TCI 

2  IF  ( TYPF . Nfc.l )  CALL  StLUTS ( S IZ E ) 

IF  (TYPl.Fw.1)  size=3 

IF  (UP  TURN  )M  T,  1 

CALL  GCPY(ENT,ENTNUM( SIZE, TYPE) ,500,500) 
IF  (S  I0E.EQ.2)CALL  CCLOR(PED) 

IF  (S  IUE.EO.DCALL  GPUT  (3,130,2,0) 

CALL  L AM  PS ( U  ,u  ,''>,31 

CALL  ADUMSG 
CALL  ONSEL 

3  CALL  MOVENT  (U,trNT,TDALL  ,X,  Y) 

CALL  CMNT  (KEY  ) 

IF  (KLY.ISlt.ACCLPl  ) G JT  05 

CALL  OFFSEL 
CALL  6LKSEL 

GC  CUNT  =UCl  UN'f  ♦  1 

MOF( FLPTR )=UCOUNT 
M0F(FLPTR+1)=ENT 
Mi)F(  FLPTR+2  )=S  I ZE 
MJF( FLPTR+3)=TYPfc 
MuF( FLPTF+4 )=X 
MDF  ( FLpTP+5)=Y 

M0F(FLPTR*6)=INRAMI (X,Y,JLCOK) 
M0F(FLPTP+7)=0 

MOF(  FLPTR  *-8)  =  ASSETS(  SIZE, TYPE) 

MDF(  FLPTR  )  =  ENORNC  (SIZE, TYPE) 

00  4  1=10,17 
MOF(FLPTR*I )= ) 

4  CONTINUE 

MOF(FLPTR»lti)  =  POST UR 

FLPTk=FLPTR+KCUS IZ 
FNT=ENT+I 


I 

I 


IF  UEY  .Nt.FFJtCT  )GL)TC'3 

CALL  GEOF (ENTI 

E*T=ENT+1 

CALL  OFFSEL 

CALL  tlLKSEC 

GUT  LI 

EUCNT=UCOUNT 
MDF  (IIPTR  J=FUCNT 
MDF (UPTP+1 )=EJCNT 
MOF ( UPTf ♦2)=0PTK+4 
ML)  F(3I  =  FLPTF 
UNTrNT-LlSIT 


IF  (FUCNT+EUCNT  .NE.  0)  CALL  ACTBLK 


GVLYKYt 1)=1 


SUBROUTINE  ACTBLK 
CUMMON/MDF  ILE/MuF(  3UOO)  ,MDf  MU 
C OMMCN/U INFC/RCDS I Z 
CuMMON/PsOBLM/TiMt 

UuMhJN/ FPL 4Y/ INDEX,  INTRVU  4)  ,  ENDTlM 
IMPLICIT  1NTEUE*  (A-Z) 

***■*  SETS  UP  DATABASE  FOR  RECuRDING  OF  UNIT  ACTIONS 
UP  TR=MDF (2) 

UC  OUNT  -MOF  (  UP  T  R  )  +  .MOF  (  UP  TR-*- 1 1 
UPTR -o  P  T  W  +  4 
SKRPTR=(MDF<  3) 

P  E  SP  LV= 100 
POSTURAL 

AC1IVE  UNIT  a  T  X.Y, DETECTION*  ENGAGE.  , FIRING  RN  3£  .  *  RE  SUP.  «  P  il'UKC 
d I CODE =40 9 5 
****  MOVE  TO  X,Y 
BTCC  D2=30  75 

DO  1  J=1,UCCUNT 

Mu!  (  UPT  P  +  P  CDS  I Z  - 1 1  =  SKI  p  TP 
MJFl SKRPTP)=3 
MDF( SKRPTR+1 )=3 
MOF( SKRPTR+2)=16 
MDF(  SKK  PTR+3 )  =  BTC ODE 
MliH  SnR  PTR  +  4  )-MuF  t  UPTP  *-4) 

M^F(  SKR PT R+  ‘S )  =  MDF  (U°TP+5) 

MDF< SKRPTR  +  6)  =  1 iMC 

MuF  ( 3KRPTP  +  7)=MDF ( JPTR  +6) 


Oo  io  l  -8  1 1  3 
.-to  F  (  6K.r  P  T  K  1  i  —  j 
COM  lKUh 

MDF  ( SKPPTR+14)=kESPLV 
MO  Ft  SKRPTR+15)  -=P  LIST  UR 
MDFt  SK3PTR  +  16)  =6TCl)02 
MO  Ft  SKKPTRH7)  =MDF(  UPTR+4) 
MJF(SkRPTR+18)=MDF (UPTR+3) 
MJF(  SkFPTR+19)  =lN'OTIM 


MOF( SKRPTR+20) =MDF ( UPTR+6J 


UPTR=UPTR+RCUSI  Z 
jn  \P  T  ft—  SKRPTR-#-  2 1 


CUM  INUL 


MDF  (  3  )  =SKkPTR 


F  F  T  0  is  \ 
END 


SUBROUTINE  07 
CALL  USTATE 
RETURN 
END 


SUokOUTINE  UST  ATE 

COMMON/tfiJk  I L  E/rtUf  (  3uUO  )  .MUk'MAX 

COMMGN/C Vk  LAY/CVLYKYI5) 

L f  MM C.r<i /  l>R  AN C  M /  .J j<  1  lM  N 
l  i-l  pL  1 C  IT  IMkify  (A-Z) 

II-  IMDFI4  )  .EG.cICALL  F.VTINT 
CALL  SFLJSPI PRCURL) 

Ik  t DP  TUk  N  ) GOTO IOO 

GML  (  I0t«e0,30,^0f!>.'i )  ,  PPCJPC- 

CALL  ADOUNT 
GHTOI 

CALL  OhLONT 
Gi.  Tu  1 

CALL  RSPUNT 
GJTLi  1 

CALL  Ji  r  M  S  N 
GdTGI 

CALL  PLLiUNT 

GO  TD1 


1  ,U  OVLYNY  {  1  >  =  1 

RETURN 

END 


SUBROUTINE  ADO  UN  I 

COMMON/MOF ILE/MDF( 3000  l,MQFMAX 

C0MMCN/6R  ANCH/ DRTURN 

COMMON/ PRUBLM/T IME 

COMMON /ENT  CNT/UinI  ENT  ,  *  t  FEN  T 

CuMMON/Ul  NT  L/E  Nl-RNC  I  3  «  4  )  i  ASSET  S  (  3*4  ) 

CDMMUN/U 1  NFL  /RCOS I / 

COMMON/ R PL AY/ INDEX, I NT RVL(  4 1 ,£NDTIM 
IMPLICIT  INTEGER (A-C.E-Z) 

LOGICAL  DRTURN 
DIMENSION  E  NTflUU  ( 3  » 4 1 

DATA  ENTNUM/2^  J»2ol  ,202.2U3,2.>4,205,2J6,2C7,208,209,210,21i/ 

C  ****  ROUTINE  PERFORMS  DATABASE  OPERATIONS  FOR  ADDING  UNITS 

T  B  AL  L=  1 
AL  CE  PT= 1 
R  E  J  F.  C  T  =  t 
^E  J=0 

cNT=  UNTENT 
UPTR=M0F(2) 

FUCNT=MDF (UPTR ) 

EUCNT- MDF  <  UPTF  + 1 ) 

UO UUNT  =  LUCNT +F JLNT 
Ff  LPTR  =  MDF'IUPTR+2) 

6FLPTR=M0F(UPTR+3) 

PCSTUK=l 
JL  GOK= 1 89 

C  ****  ACTIVE  UNIT  AT  X,Y,  OET EC f I 2N , ENG AGE . , FI R I NG  RNGE . ,R E S JP . , P US TURE 
BTCGUE  =40“v  5 
C.  MCVE  TO  X,Y 

BT  C0D1 =30  75 

C  ****  INACTIVE  UNIT  AT  X,Y 
BT CC 02= 14337 
:-cSPLV=10G 

1  ALE  U5TMSGI  1  I 
CALL  SELUTTITYPE) 

IF  I DRTURN)  RETURN 

2  IF  (TYPE. NE. II  CALL  S£LUTS(SIZEJ 
IF  (TYF'E.EO.D  S1ZE=3 

IF (DRTURN  I  GOTO  1 

3  CALL  SELS  IU( SIDE) 

IF (DRTURN  J  GOTO  1 


CALL  GCPY( ENT, ENTUUM (SIZE, TYPE  I  ,  500 , 500 ) 


O'  o 


IF  (  S  IUt.cw.2JL  ALL  COLOR (RE  D) 

IF (;>  10F.EO. I ICAcL  3PUT ( 3. I  3 J > l , 0 ) 

CALL  LAMPS! 0*0 .0.3) 

CALL  AOUMSG 
CALL  UNSFL 

4  CALL  MUVlNT  (o,c.i'.T,  TBALl  ,X,  Y) 

CALL  CKINT(KIY) 

IF (KEY. Nt .ACCEPT) GJ TUI L 
CALL  OFF SEL 
CALL  RLKSEL 

IT  YPt=  l  r.  RAMI  (X,Y,  JLUCK) 

C  ***♦  SHIFT  THE  MDF  TU  MAKE  RGuM  FUR  MEW  UNIT 
ST  AR  T=  FFLP  TP+UCUUNT*RCt)Sl  Z 
IMS  IUE.Fu.l )  START  =  FFLPTR 
TUTAL=FCDSIZ 

CALL  MOFSHF( TulAL. START) 

IF  (SIDE. fed. 1)  /iDF(UPTR+3I  =  START+TUTAL 

EFLPTR=MDF(UPTRf-3) 

SK  RPT  R  =  M  Jf  (  3  I 
t  V  TP  Tf'  =  MDF  (  4  ) 

C  ****  INSECT  UNIT  INFORMATION  RECORD 
FLPTR= START 
MDFt  FLPTR)=1 

IF  (  SIDE. E. 0*1  .aND.  FUCNT  .  fcO.D  )  GO  TO  3 
IF  (  SIDE. tO. 2  .AND.  EUCNT.EU.O)  GO  TU  3 
MUF(FLPTR)=MDF  (FLPTR-RCOSIZm 
3  CUNT  I NUE 

MOF  (  FLPTR  «■!  )  =  ENT 
MUF(FLPTP+2)=S(ZE 
MDF( FLPTF+3)-TYPE 
MU  F  (  F  L  D  T  R  +  4  )  =  X 
MUF( FLPTP  +  3  >  =  Y 
MQF(FLPTR+6)=TTYPE 
M0F4  FLPTR  +  7 1=0 

M0F(FLPTR+8)= ASSETS) SIZE, TYPE) 

MDF(FLPTk«-5)=ENDRNC(SI  ZE,  TYPE) 

DO  15  1=10.17 

MDF ( FLPTR+  I ) =0 
15  CONTINUE 

M0F(FLPTR*18)=P0STUR 

C  ****  m,  UN  I T  ACTION  P.fcCOPJ  GutS  AT  SCRATCH  AREA  BEGINNING 
IF  (SIUE.EJ.  IJGUTC6 
START=EVTPTR 
GO  TO  8 

****  GREEN  UNIT  ACTION  RECORD  GOES  AFTER  LAST  GREEN  JNI T  ACTIJN  RECORD 
IF  (EUCNT.NO.O)  GO  TO  7 
STAR  T=EVTPTP 


m 


GO  10  8 

**  SHIFT  MDF  If.  MAKE  •• 
PTRP7P=EFLPTK+KCuSlZ-] 
ACTPTR=MDF(  PTRPTK) 

start=actptr 

TUFA  L=2 1 

IF  (T  IME.Uf  .  .' )  T  07  AL=  ?t> 


ACTION  BLOCK  FOR  GREEN  ACT  h 


IF IS  IDE. tO. 1 )FUCNT=FUCNT+1 

IF(SIl)E.EU.2JEUCNT=FUCNT+I 

UCCUNT  =UCGJNT  «■  L 

ENT=fcNT+l 

MOF  (  (JPTR )  ~  FUCM 

MDF 4UPTC+l)=EUCNl 

UN  Tt NT=  ENT 

CALL  MDFSHF4T0TAL, START ) 
HOF IFLPIR+19)=STAKT 
FLPTF=STAF  T 
IF  (T  IME.NE  .0  )G(jTQ9 


•>*  INSERT  ACTION  PSCORD  FOR 
MDF4FLPTRI-? 

MOF4FLPTR  +  l)  =  3 
MDF(FLPTR*.?)  =  16 
MPF(FLPTR*3)-=8TCQ0E 
MOF4FLPTR+4)=X 
MDF(FLPTH-5)=Y 
MOF(F  LPlR+fc)  =  T IMF 
MJF(FLPTR+7>=tIYPl 
DO  lb  1=8,13 

MDF  4  FLPTR+ I ) =0 
CONTINUE 

MUFI  F  L  PTP.  +  14)  =PcSPLV 

MOF4FLPTR  +  15MP.JSTOP 

HDF(FLPTP*16)=B1C001 

MDF(FLPTR*17)=X 

MDF(FLPTR*18)=Y 

MDF4FLPTP+19)=ENDTIM 

MDF ( FL PTP  +  20 1  =  T  TYPE 


ADDED 


PROBLEM  TIMii 


GO  TO  1 

****  ACTION  RECORD  FOR  UNIT  ADOEO  AT  OTHER  THAN  PROBLEM  TIME  ZERO 
MDF<  FLPTR i =7 
MDFIFLPTR+1>=7 
MDF(FLPTP+2)=21 
MU FI FLPTR+3)=8TCC02 
MDF  4 FLPTR+4 l  =  X 
MDF(FLPTR*5)*Y 
MOFI FLPTR+6)=0 
MOF(FLPTR+T>=TTYPE 
MDF(FLPTR+bl=BTCODE 


MJHH_?TR«-9)=X 
MJF1FLPTP+10J=Y 
MlIF  (  H.DTr  *-i  l )  =  T  l  ML 
MOF(FLPTP+12)=TTYPt 
OH  10  1=13,18 

MOF ( FLPTR+ I ) =0 
l'j  CuMINUE 

M!)F(FLPTR  +  l«)  =  krSPLV 
MOF I FLP7R  +  20)  =  PuST  J  R 
MuF<FLPTR+21)=dTC0D1 
MOF(FLPTR+22)=X 
MDF(FLPTR«-23J  =  Y 
MGF(FLPTR+24)=twUT  [M 
MOFlf  L°TR-*-?b)  =  TlYPE 

GO  TO  1 

11  IF (KEY.NE.RtJECr)GJTG4 

CALL  GEOFIENT) 
E,NT=ENT*l 
CALL  JFFSEL 
CALL  BLKSEL 
G0T01 

ENO 


SUBROUTINE  DEL  UNT 
COMMGN/MDFILE/MDFOOOG ) .MDFMaX 
COMMON/BF:  AiMCH/DKTURN 
C(  MMON/ PRPbLM/T I  ML 
»-  CUMMUN/U1  Nfli/R  CDS  I  L 

IMPLICIT  INTEGEk  (A-Zl 
LOGICAL  ORTURN 

C  ****  ROUTINE  PERFORMS  DATABASE  OPERATIONS  FOR  DELETING  UNITS 
IF  (TIMl.GT.G)  RETURN 

UPTF =MUF( 2) 

UL  CUNT=MOF(UPTRM-MUF(UPTR*l) 

IF  ( UCUUNT.E0.O)  RETURN 
U1PTR-UPTR+4 

10  ALToLK  =  iV)F  (U1PTH  *(■  CDSIZ-1 ) 
tFLPTK-Mi)nUPTh  +  'i) 

EVTPTR=m,)FI4> 

CALL  USTMSGI2I 
CALL  UNSEL 
CALL  SELUNT (UNTPTR I 
IF  (DRTURN)  GJ  ID  ST 
t,MTITY  =  Hi)F(UNTPTR  +  lJ 
CALL  GEGFI ENTITY) 

SI DE= 1 

IF  (UNTPTP. GE.EFLPTR)  SIOfc=2 


C  ****  DELETE  L'SIT  ACTIUJ  KE'CLkOS 


STAR  T  =  MCE  (  UM  PT!  +  RC  OSIZ-1I 
EN  0=  MUF (UNTPTR+Z*kCDSlZ-l) 

IE  <uNTPTR+«CDSiZ.G£.ACTBLK)  ENO=EVTPTR 
TOTAL=  START— END 
C  AlL  MOFSHEn._TAL.ZNOJ 

C  ***££  OtLc.1t  UNIT  i  NeL  RH  AT  1  L  A  RELuRD 

END=UNT  PTR+20 
TOTAL=-RCDSIZ 
CAU.  MOFSHF  {TO  TAL  *  ENG ) 

IE  l SIDE. Ed. 1)  HOF (  UPTR)=M0F(UPTR)-1 
IF  (SI0E.EQ.2J  MDF(UPTR+1I=MJF(UPTR+Ii-I 
UC0UNT=UCC!UNT-1 
IF  (UCEUNT.EQ.  ))  GU  TO  50 

GL.  TO  1 0 

5  CALL  UFFSEL 

CALL  BLKSEL 
RETURN 
ENO 


\ 


SUBROUTINE  KSPUNT 
CCMMON/MDFILt/MUFI 3000  l»MOFMAX 
COMMON/BRANCH /DRTURN 
COMMON/ PRO OLM/T  I  HE 
COMMON/UI NFU/RCOS i Z 
C UMMUN/ENTCNT /UNTENT, KEFE NT 
IMPLICIT  INTEGER ( A-C»  £ -Z ) 

LOGICAL  DR  TURN 

C  ****  P  GJT  INE  PERFORMS  DATABASE  OPERATIONS  FOR  RESUPPLYING  UNITS 

C  ACTIVE  UN  I  1  AT  X,Y,  RESCPPcl ED  WITH  NE M  COMBAT  POSTURE 

BTC0D1=3841 
P0STUR= 1 
UNT  PTR=MDF ( 2 ) 

EFLPTP=MDF( UNT  PTR  +  3 ) 

AC  TO  LK=MOF ( FFl PTF  +  RCDSIZ-1 } 

S KR  PT  P -MOF ( 3 ) 

1  CALL  USTMSGi 31 

CALL  ONSEL 
CALL  Sfc  L  UN  T { UP  TP ) 

CALL  C'FFSEL 
CALL  BLKSEL 
IF (DRTURN) GUTQ4 
ENTITY=MDF(UPTR+1 J 

C  ****  MEW  UNIT  POSTURE  KFCCROED  IN  UNIT  INFORMATION  RECORD 
MDF4UPTR+18l=PLsTUP 


'-0  o 


0  ****  SHIFT  KJF  Tl  MAKE  SPACE  fjk  thl  rlsjpply  vector 

Ac1PTR=MDF(UPTR+RCi)SI2-II 
PRESNT=M0F(ACTPTR«-1) 

START=ACTPTR.  +  PRESNT 
TOT AL=6 

CALL  MOP SHF (TOT  AL  t  ST  Ak T ) 

SKRPTR=MuP(  3  ) 

****  ALLOW  USER  TO  INPUT  A  RESUPPLY  LEVEL  FROM  THE  FUNCTION  KEYBUAkU 
CALL  RSPMSG 
CALL  ONSEL 
CALL  SFLMJM(kESPLV  I 
IF  (OR.T  URN ) GOTO  1 
CALL  GFFSEL 
CALL  BLKSEL 

I F ( RESPLV.GT • 100) GOTO 3 

CALL  GENT! ENT  IT Y ) 

CALL  GPJT<3, 130,1. U) 

C  ****  INSERT  THE  RESUPPLY  VECTUn  (ALSU  INCLUDED  IS  A  NEW  COMBAT  PUSTURc) 
M DF ( AC  T  PTR+PR  ESNT )  =  BTCODl 
MDf l  A C  T  0 T R  +  PR  E  iN T  *■  1 1  =  M OF  ( LPTR*4) 

MUF  (ACTPTC  ♦PRESNT*-2I  =  MJP(UPTR*-5) 

M  DP  (ACT  PTK  +  PI  ESM>3)  =  T  IME 
MUF(ACTPTR+PRESNT  4-4)  =  RESPLV 
MOF ( ACT PTP  +  PRESNT  +  5 IMPOST  UR 

C  *»**  UPDATE  UNIT  ACTION  RECURj  RELATIVE  POINTERS 
MOP (ACTPTP)=PPESNT 
M DF (ACTPTR+1) =PRESNT  +6 
MDF  <  ACTPTP.+2I  =MDF(  ACT  PTR>2) 

GOT  Cl 

4  KE  TUR  N 


F  NO 


SUBROUTINE  OEFMSN 
COMMUN/MDFILE/MDFl  3000)  .MOFMAX 
COMMON/ BRANCH/ DRTURN 
COMMON/ pPOBL  M/ T i Me 
COMMC  N/UlNFO/RCuSIZ 
COMMON /ENT CNT/UNT ENT .RtFENT 
IMPLICIT  INTEGER  (A-C.E-Z) 

LOGICAL  ORTURN 

0  ****  POUTlNc  P  E  P.  F  l,  E  M  $  DATABASE  UPt^ATICNS  FOR  DEFINING  UNIT  .-llijlu 

C  ****  ACTIVE  DMT  AT  X,Y,  wITh  We*  COMBAT  POSTURE 
8TCG0E=35S5 


UNTFT  R  =  MJF  (  ,?  ) 

Ft  LPT?=POF  (  UiN'l  PT * «-  i  > 

ACTt>LA  =  MDF  (  Ft  LPTR+RCDS  I  l- 1  ) 

SK  RPTP  =M JF ( 3 ) 

1  CALL  US  TMSG ( 4 ) 

CALL  ONSEL 
CALL  SELUNKUPO  I 
CALL  JFFSEL 
CALL  BLKSEL 
IF (DKTURN) G0T03 

C  ****  SHIFT  THt  -IGF  TO  MAKE  STALL  EC*  IHt  RESUPPLY  VECTU 
ACTPTK=MCF  < UP T R+RC J S l Z - U 
PE ESNT=MUF ( ACT PT  E  +  L ) 

ST  AK  T=  ACTPTR+PRESNT 
TO  TAL=5 

CALL  MUFSHF (TOTAL, START  ) 

SKRPTR=MDF( 3) 

C  ****  ALLOW  USER  Tu  SELECT  A  MISSION  (CCM3AT  POSTURE) 
CALL  SEL PUS ( PUSTUR ) 

IF (URTJPN)GCTQl 

C  ****  INSERT  ThL"  NEW  uGMoAT  PCSTuRE  VlCTOk 
HUE ( ACT PTK  +  PRE SNT ) = BTC  COE 

MDF  (  ACTPTR  +  PRE  SNT  +  l)-=M0F(UPTR+4) 

MuF  ( AC TPTR+P RE SNT+2)=M0F(UPTR+ 5) 

MOF( ACTPTR  +  PRE SNT+3)  =  T I  ME 
MUF  (  At.  T  PT  P  +  PRr  SisI  +4  )  =  PCSTU  R 

C  ****  UPDATE  UNIT  ACTION  RECURU  RELATIVE  POINTERS 
MUF (  ACT PT P )  =  PR ESNT 
MOF( ACTPTP+I)=PPESNT*5 
MDF(ACTPTR  +  2)  =  MOF( ACTPTR+2  )+5 

GOTO  1 

3  RETURN 

END 


r  « 


SUBROUTINE  RLOUNT 

COMMON/ MOF  I Lt/MUF (  30001 .MOFMAX 

COMMON/ BRANCH/ URTURN 

COMMON/ PR GEL M/ T I Mt 

CGMMLN/OltMH  /RCOSIZ 

COMMON  /e  NT  Gl\T/  Ui-iT  t  NT  » R  c  PEN  T 

IMPLICIT  INTEGER!  A-C.E-Z) 

LOGICAL  ORTUKN 

C  *•»»*  FOOT  INF  PEKFcFMS  OAT  AHA  SC  OPERATIONS  FOR  RELOCATING  JNII  *  S  ’’oTt-i 


♦ 


ULL  l K  =  l cS 
AC  CL  P  T -  1 
RTUPN=30 
Tb ALL=  1 
UNTPTR  =  MDM2) 

IB  LM-=uM<>TM4 
AC  H>LK=M')F(FFlPTT+KCJSIZ-1  ) 
ilsRPl  R  =  Vl»F  (  ?  ) 

ENOT I M= 1 440 

C  ***+  INACTIVfc  UNI1  AT  X,Y 
B  f  CC  UL  =  204  'v 

1  CALL  USTMSu(S) 

CALL  ONSfcL 

CALL  SELUNT ( UPTR ) 

CALL  CFFSEL 
CALL  BLKSEL 
IB  ( uB.  TUt  N )  lit  To  6 
CNT!TY-Mi)F<  JPT  ri*-l  ) 

CALl  LAMPS!  64,0,0, 2) 

C  ****  DETERMINE  IT  RELOCATE  W  ILL  PPEfcMTP  OTHER  ACTIONS 
ACTPTF=MDF(UPT R+ACJSIZ-1) 

IT  (MDF  I  ACTPTh*  l<:  )  .  ,'Jt .  f:N  JT 1  4JCALL  WARN  MG 
lALl  AOl/MSS 
CALL  JNSLL 

2  CALL  MGVENTU,  ENTITY,  TBALL  .X,Y) 

CALL  CKINTiKtY) 

ib ikly .nl.acclp i mores 

r.  ****  update  PosniuH  in  unit  i  mfcf.mat i cn  tlcjfd 

MljT  IUPTP+4)^X 
MOF I  UP  T  A  +  5 ) =Y 

MO  F( UP  TR+  6 )  =  I W  R  AM  l I X,Y, JL0CKI 

C  ****  UfJATL  INITIAL  °0SITIUN  OF  UNIT  AS  RECORDED  IN  ACTION  VloT.^S 
MO  F  (  AC  T  P  T  R  +  4 )  =  X 
MOFI ACTFTR+5I=Y 
MoF(  ACTPTR>7)  =  MDF(UPTR«-6J 
MOFI ACT  PTR  +  1 6) *BTCODE 
MO F  (  AC T  P  T  P  ♦  1  7  )  -X 
MOFI ACTB'TFt  IS) => 

MOFI ACTPTR  tie )  -iNOTIM 

C  ****  FINAL  F.ECOKD  IN  THE  ACTION  BLOCK — JUST  UPDATE  THE  SCRATCH  POINTER 
IF  (U  PT  R-*-°COS  I  Z.NE.ACTBLKJGCTQ3 
SKRFTR=ACTPTT*2j 
CALL  ,'FFSEl 
CALL  B  L  K  S  E  L 
GO  TO  l 

C  ****  SHIFT  THt  MOF  TO  THE  RELOCATE  VECTOR  USE  BLANK  SPACE) 

1  U?TR  =  UPTR+B'CUS1/ 

ST  A«1 =MUFCUPTP  +  r  COS IZ- l  ) 


T  HAl-ACT?  TP.+E  >-  ST  ART 
CALL  MOf SHF  11 UTAL. START » 

SKRPTft=MDF( 3) 

CALL  UFFSEL 
CALL  BLKSEL 

Gl  TCI 

C  ****  U St F  REJECTS  PELcCATE 

5  IF  {KEV.NE.HTUPMGOTU2 

CALL  GPUTI 1,100, MDFIUPTR+4 1,0) 
CALL  GPUT  C  2,  110 1 MOF  (  UP  TR+t>  J  ,01 

CALL  CFFStL 
CALL  BLKSEL 

GiTTt‘1 

6  CALL  UFFSEL 
CALL  BLKSEL 

Ft  TUkIS 
tND 


F NO  CF  DATA 


l 


SUBROUTINE  MVMMl 

CUMMCN/MUF I LE/MUF ( 3000 ) .MOFMAX 

CUMMON/OI SPL/IOPLI 4900 ) « IE  HR 

C.uMMUN/i'VR  L  AY/  GV  L YKY  (  5  ) 

f  UMMuN/  8K  ANCH/  UPTURN 

C  OMMCN  /  5l  NuLE/  UPTf* , FI LPTR 

COMMON/ CLuSTR/ UNTP  TP ( 10,21  , CLT V P t ,XZE RU , Y ZE RU , XREF , YREF .UNTCNT 
COMMON/ MOVE /MU VENT 
CO MMGN/SAVE/RFRJ  » FREE • JUMP 
IMPLICIT  INTtGEF  (  A-C.E-Z) 

CGi-.NoN  AFRAYtbj) 

LOGICAL  UPTURN 

C  ****  ALLOWS  U SFk  TO  SPECIFY  OPTIONS  IN  PLANNING  UNIT  MOVEMENT 

uV  LY  KY  (  2  )  =  5 
l VLYNYI3) =lo 
CVLYKY (4) =1  1 

C  ***’-  CREATE  MOVEMENT  PATH  AND  ARRIVAL  TIME  ENTITIES 

MU  VL  NT  =  MO  VEN  T  +  32 
CALL  GHLGI.Ii:  VEN1  ,0  ,UJ 

Call  color ( 2 ) 

CALL  GPOT( 5, L76U«0,0) 

DU  5  1=1,10 

CALL  G8EG( MUVENT+I ,0,0 ) 

CALL  CJLUU,) 

CALL  OCHAI MUVENT+I  ,5,0 ,  l  , a ) 

5  CENT  INUC 

C  ****  SELFCT  TYPE  OF  UNIT  MOVEMENT 

I  CALL  S  ELMVT (TYPE) 

If  (  •  NCT.ORTUi-  N  )^0T  012 

CALL  o  r  E  b  I ( IUPL,kFkJ,F REE, JUMP) 

DO  11  1=2,5 

II  QV  LYKY ( I ) =0 
GOTO  50 

12  U  (CL  I  YPE.tQ.  i.O:.  TYPE  .  NE .  6  I oUTU20 
Dli  15  1  =  1,  UNTC  NI 

CALL  GfcNT (7+1 ) 

CALL  GPUT  ( 1 ,  LOU,  MDF(  UNTPTR  ( I  ,  I )  +-4 1  ,0) 

CALL  GPUT (2,I10,MDF( UNTPTR C I, l)+5),0) 

CALL  Gt  C1N<  H-l  ) 

15  CfMJNUr 


jpn  =  ;i 
Go  T C4G 


C  ****  SELECT  UNIT (SI 

?0  IF  (TYPE.NE.  1IGCT03U 

CALL  SCLUNT(UPTR) 

IF  1 0 K  T U c  G ) ' iU T i  10 
CL  TY PE=  1 
GUI 140 

30  CLT YPE=TYPE 

UP  TP  =0 
r.ALL  i JUNES 
If  (UM  CnT  .t  Q.OIGUTUIO 

C  ****  LUCATt  CLUSTER  CENTER 

IF (TYPE.NE. 2. AND. TYPE.NE. 3  JGCT035 
CALL  CLCMSG 
CALL  Oil  GEL 

CALC  SETPN1 (), lf/ZcKCt YZEHu,lI 
CALL  DEESEl 
CALL  GLKSEL 

C  ****  ScLfCT  A  rE  Ft  C  L  NC  E  FC1NT 


IF  (TYPE.NE..:  JGcTla.) 

call  rfptmg 

CALL  JNSEl 

CALL  SETPMTIO, 1,XREE,YREF, 1) 
CALL  UFFSt-L 
CALL  BLKSRc 
GOT C 40 


C  ****  LtAD  UMIT  uP  COLUMN  UK  LEAPFROG 

35  X2  LF  G=IHJF  (  UNTP  TI  (l»l)+4) 

YZERC  =  MIJE(UNTPTK(l,  11  +  51 

C  ****  INPUT  THE  PATH  UF  THE  MCVEMENT 

40  CALL  DPWPTH 

IF (APR AY( 1) .NE .o)G0T050 
DU  45  I-0,<5 
45  CALL  GECF ( ti+l ) 

GUT010 

50  OVLYKYI I)=l 

RETURN 

ENO 


3o<5i?o OTjtJE 

ILE/MDM  3> lOO)  ..-1DFNUX 
U.KMul/  BRANCH/ i)t  TU>-  (. 

CC  MMGN/C LUST*5/  UNI  PT*-  (lo. 2)  .CLTY  PL  *  X/cRG, Y  ZERU.XKEF.  YKEF«UNlu  IT 

IMPLICIT  INTEGEF,  (A-C.E-ZI 

LOGICAL  DRTUFN 

0 1  .Ht  AiS  I  CM  TABLE!  Si 

DATA  T  ABLE/  1.  IS  lo  .  M.2/ 

C  ALlGlS  JSEk  TO  Ci  MSI  i-UC  T  a  cluster  of  units 

GN  =  1 
OF  F®  2 
UNTCN1 =0 

UNTM AX=T  Afi  IF  I  C  Li  YPt:  > 

DU  1  u  J=  1 , 2 
00  LO  1=1,10 
lo  UNTPTMI,J)=0 

IF  (lLTYPf.lO.4  ...K.CLTYPt.EO.ijICALL  LOUMSG 
2  J  CALL  SCI UNT ( UPT1  ) 

IF (UPTURN)  GLT._7u 
CALL  CLFMSG(OFF) 

C  ****  SEE  IF  THIS  UNIT  IS  ALREADY  IN  THE  CLUSTER  luMIT  IF  TROD 

OU  30  1  =  1, UNT  MAX 
IF (UNTPTR (1,1)  .tw.UPTR  JGOTCoO 
30  CONTINUE 

00  40  1=1, UNTM AX 
IF (UNTPTR ( I ,1) .EO.O JG0T050 
4  ;  CuNl I NUt 

CALL  CLFMSO(LN) 

G0TCi20 

C  ****  ADD  UNIT 

UN  T  C  N  T  =  UN  T  C  N  T +  1 
UNTPTR (1,1)  =UPTk 
CALL  Gl  NT l  7M  ) 

CALL  GPUT(  1,1GG,MDF(UPT R+4 ) ,01 
CALL  GPuT(2*110*M0F(UPTR+5)*0) 

CALL  GEDN(7*I) 

GuTCZO 

C  ****  UtLETE  UNI  I 

60  UNTCNT=UNTCNT- 1 

UNTPTR! 1, 1)=0 
CALL  GEf'F  (7*1) 

CALL  LLFMSG(OFf ) 

GJTC2G 

70  CALL  UFFSEL 

CALL  BLKSEL 


C  ****  PACK  THE  ARRAY 


Dl  7^>  1  =  1, 

I  HUM  PT  c  (  I ,  l  )  .  L  w  .0  )  GUTU7  5 
UNTP  TR ( J  » 1 1 sUNTPTRl 1  ,11 
J  =  J*l 

LLM  1  UW- 

PlTURN 

e.4u 


f 


SUBROUTINE  09 
CALL  UNTPTH 

RETURN 

END 


SUEeGUTlNt  UNT PTh 
CJMMLN/SI.'.CLE/UPTh  .F1LPIF 

CL’MMUN/CLUSTR/UNTPTc  (  10.2)  ,gLT Y PE , XZt RO, YZc RC , XREF , YREE  .JNTCNT 
COMMON /OVKL A Y/OVLYKY  ( 5  ) 

IMPcICIT  INTEGER  <A-Z> 

C  ****  L ALL  POuTlnES  WHICH  COtPUTc  AN  INDIVIDUAL  UNIT'S  PATH  li  a  LLJS 

C  ****  'SINGLE  UNIT  MOVEMENT '  PASSES  THROUGH  THIS  ROUTINE 

IE (UPTR.EO.O)GOTC 1 
CALL  SNGUNT 
GO  TLIOO 

C  ****  SEE  WHAT  UNIT,  IF  ANY,  NEEDS  PROCESSING 

l  DO  5  1NDEX=1,UNTCNT 

iMUNTPTP  (INDeX, 2)  .L<J.u)GOTC7 

s  continue 

UV  LYNY ( 2 )  =  3  2 
GO  TO  100 

7  UVLYKY ( 2)=nVLYKY( 1 J+l 

OV  LYKYI 3) =GVLYKY ( L ) 

C  ****  GET  ERM  I  NT  I  YF  F  jt  CLUSTER  Mi  Vl.V.NT 

?  3K ANCH=CL  TYPE- I 

GO  TO  1 10, 20,30, 4o), BRANCH 

C  *»<•>  UlfFCTILN  DEPENDENT 

10  CALL  Ul p  DE  P ( INDEX ) 

GOTO  IOC 


C  ****  FIXED  POINT  OtPtNDENT 
2-  CALL  FUIIEPI  INDEX) 


7 


■st  •<* 


Ot.T  Jlijn 

L  ****  (  U  U«N 

30  CALL  COLUMN! INLLX) 

GCTl  100 

C  ****  LLAf-f^OO 

<r0  CALL  LPFKOGUNDfcX) 

100  OV  LYKY ( 1 )  =  1 

K  c  T  U  F  it 
fcNl> 


SUBROUTINE  SNGUNT 
COMMON/ SC RICH/ PARR AY (81) 

IMPLICIT  INTEGER  U-Z) 

COMMON  ARRAY (6 3) 

C  ****  TRAN  Sf  t.  i  S  SINGLE  U.'.n,  USE*  INPUT  PATH,  RE  CM  ARRAY  TO  PAK.kAY 

UO  LO  1=1,63 

PARR  AY ( I )=ARRaY( I ) 

I  v-  CO  NT  INUR 


F.C  TURN 
END 


SUBROUTINE  OIkDEPI  INDEX) 

COMMON/ MOF  I L  E/MOF  (  30UU i ,Mj FMAX 
COMMl/N/SCRTCH/  PARP AY  (81) 

Ccht  uN/CLUSlt-  /UNTPTM  L  3,21  ,CLTYPfc,XZERU,Y  ZE  RO  , XKEF  , YREF  .UNTCNl 
UKMLN  APP  AY  (  (j  3  J 
I.iPLlCM  INTFoLF  U-Z) 

****  COMPUTES  UNIT'S  PATH  AS  MtMB£F  OF  D l RE CT JUN-UE PEND ENT  CLUSTER 


U'PT  P  =  UIMTP1  R  (  INDEX,  1.  I 


X=  M(.*F  (UPTR+4) 
Y=MUF<UPTR+B> 

PARK AY  I 1)=ARkAY< l)*3-2 

PARK  AY ( 2i =X 

PAPkAY<?1=Y 

xANL=X 

YANC=Y 

XO=AF  P  AY  C  2 ) 

YO=AP.F  AY(  3) 

X 1=ARR  AY ( 4 ) 


Sr  “s' 


Yl  -  At  AY  (  ‘5  ) 

C  ****  oLT  FELAT  IVl  Pl  SHUN  OF  O.s.  I  T  ON  FIRST  LEG  CF  PATH 
CALL  RELPOS(Xo,YO,XI,Yl,X, Y.XRFL.YREL) 


f.  ****  GLT  FtAL  UNIT  P'JalTlux  AT  cNE  uF  F 1 1- ST  LEG 

X2=2*X1-X0 
Y2-=2*Y  1-Yu 

CALL  REAL PS (XI , Y i , X2 > Y 2  ,XR EL  , YREL ,X , Y J 


C  STUFT  THE  i_' UF F Ek  Wl  Th  THE  UNIT  POSITIONS 

PA  FF AY (4)  =  X 
PARRAY (  S)  =  Y 

c  ****  PROCESS  THl  ,  lST  l.1-  THE  CLUSTER  Path  legs 


XULu=X 

YGLD-Y 

FLPTR=6 

LIMJ T=AFPAY(l> 

0-  10  I  =  2 »  L I  MI T 
XU=X1 
Y0=Y  1 

X  l  =  AFtkAY  (  1*2+21 
Yl-ARRAY (  1*2+3) 

(F(XO.EO.XL.AND.YO.EQ.Yl)GC'TCS 

CALL  KEAlPj(X.j,YU»  XI,  Y1,XREL,YREL,X,Y> 

C  <•***  olT  etST  PAT, I  T  a  THE  ROTATION  POINT 

CALL  PTUL (X,Y, XANC, YANG, XuLD.Y OLD, XNEW.YNEW) 
PARR AY (FL PTP-2)=XNEW 
PARPAY(FLPTR-1 J=YNEW 
3  PAPRAY (FLPTK) =X 

P  APR  AY  (  FL  PT  P  +  1 )=Y 
C  ****  INSERT  WATT  NLtt 

PARRAY(FLPTR  +  2)-=X 
PAPP AY1FLPTR+3 )=Y 
FLPTR=FLPTR+4 

IF  (Xu.  tu.  XI  .ANU.YO.EO  .YUGUTULO 

X2=  2*  X l- X  u 

Y2*2*Y1-Yj 

CALL  REALPS(X1 ,Y1,X2, Y2,XRtL,YREL,X, Y) 

PARK AY(FLPTR) =X 
PARRAY(FLPTR  +  U=Y 
FLPT°=FLPTF+2 
XANC=XCLD 
Y  ANC  =  YCL  ■) 

XGLO=  X 
YOLD=Y 

10  CONI  I NUt 

RETURN 


I 


SUBRLUT  !Nt  F IX  DLP (  INDEX) 

CCMMUN/MbFILl/fluFI  3000)  «MLI  FN  AX 
CD  MHO  N/  SCRTCH/ PARK  AY  131) 

CoFtU.i/cL  UUl  -Vua'I  Pi'll),.?)  .CLTVFE ,  Xiiz  RU  ,  YEL  PC  »XRfcF  ,  YF  CF  ,'JNTC.jf 
lMFLlcIT  l  *;  T  t  .1 1  (Wl 

COMMON  ARRAY!  oil 

C  ****  LLMPUTtS  UNIT’S  PATH  AS  MEMElR  JF  F  I  X£  U-PGINT-OEPE.xDENT  CLUSTER 

UP  T:-  =  jNT  PTI  l  in  Jr  x,  L  ) 

Xr  M, (  UPTR  +  41 
Y  -  Mi.1 I  (  UP  TR  +'•  ) 

X0=A  ftp  AY { 2 ) 

Yvi-A Rt\ AY  (  SI 

C  ****  u  l  T  -'flATIVc  PL'S  T I  JN  •'(-  unJT  i  Tht  CLUSTE-? 

CALL  • H  Pl  S ( X  • , Y  X- Er  , Y?t  F ,X, Y, X^EL, YF  EL  ) 


PARR  AY  ( 1 ) =ARRAY (  l )  *  2 
PAR" AY ( ? ) =X 
P  A  r>  r  AY  (  3)  =Y 

c  ****  FIND  THE  pcAl  PuS  I T  I  'JN  CF  THE  UNIT  UN  EACH  OF  THE  LEDS 

FLPTR=4 

LI  Ml  1 =Ar " AY (  1) 

if..  I'D  I-ULliMIl 

X0=ARt AY (  I  v2  +  2 ) 

Y 0=  4RF  AY  (  I  J:2  +  3 ) 

CALL  REALPSIXO, Y0,XPEf ,YREF,XREL * YRt  L  »  X , Y) 

P  A  P  P  AY  ( F  L  PT  P  )  =  X 
r'Api  AY  ( I  L  PT  F  +  l  )  -  Y 
L  ****  1  NSt  r  T  v.  Ai  1  r,L  Jl 

PAl  ^Y  (f-L  PI  a  +  ?  )  =  X 
PARRAY(FLr‘TR  +  J  I  =  Y 
FLPTR=FLPTF+4 
10  CONTINUE 


*’  i  1  U  r  N 

l  ND 


S JBP.CUT  t  Nt  CUL  JMN(  INDEX  ) 
COMMON/MOF I LE/ MOF ( 3000 )  .MOFMAX 
CDMMON/SCP I C  H/ PARR AY (81) 


u.  rtMt: mA.lu:>tk/  j. , i r k <  i  <,2)  ,cLrYPE.xzER;lfYZERD,xr<tF,  ys lf,u^uu  m 
[  Mf-Lii  .1  1  i  NT  L  G«.  *■  i  A-0,  S-Z) 

LuM.-iON  fiPR  AY  (6  3) 

C  ****  uCMPUT  t  S  UNIT'S  PATH  AS  MEMBER  UF  COLUMN  MOVEMENT 

UPTP.  =  UNT  PIP!  INDEX,  L ) 

X-MJI (UPrc+4) 

Y=  MNF  I  UP  Ik  +  5) 

L  !  MI  T  =  APR  AY  ( 1  I  4-1 

C  ****  PRuCESS  THF  LEAD  UNIT 

1 1  (  1N0LX.NE.1  )  GuTlJSO 
u:  lU  1-1, LIMIT 

P APP AY ( 1*2 )  =  ARR AY (1*2 J 
PAPP  AY  1 1*2+1 )  =  ARk AYI I *2  +  1 ) 

IT  CONTINUE 

L  l  M 1  T  =  L  1  M  l  T  - 1 
b<-  TO  1  DO 

C  ****  PROCESS  A  FOLLOWING  UNIT 

5' i  PARK  AY  (  ?  )  =  1 

PAP- AYI 3) =X 
P A KK AY  (  4)  =Y 

C  ****  FOP  EACH  LEAD  UNIT  MOVEMENT  LEG,  A  FOLLOWING  UNIT 
C  ****  MOVES  AN  EQUAL  DISTANCE  FORWARD  ALONG  THE  SAME  PATH 

Lc.  G=  I 
NO  DC  NT  =1 
LI M1T=L IMIT-1 
DU  90  1=1, LIMIT 

PX=ARRAY ( I *2+2) -APR  AY {  1*2) 

PY=APPAY(I*2+3) -ARRAY! 1*2+1) 

KL  E  G=  Swkl  (  RX*P  X  +  P  Y*  RY ) 

C  ****  ADD  U P  StGMENT  LENGTHS  UNTIL  DISTANCE  IS  REACHED; 

C  ****  L AEiF L  EACH  ixUbc  ACCOhQINo  TO  LEAD  UNIT  LEG  I 
7u  PX=ARRAY(LEG*2)-X 

PY=ARRAY( LEG*2+l )-Y 
K= SOP  T ( FX*KX+F Y*RY  ) 

Nl  UCN I = NO UCNT+ l 

If-  ( h  •  bE . RLEG)  GO  TO  t)0 

x  =  arpay(leg--2) 

Y=APKAY(LEG*2+l ) 

LEG=LEG+1 

PARRAY (N0DCNT*3-l ) *  I 

PAPkAY (NUDCNT  *3  )  =  X 
PAFr  AY IbOUCNT' 3+1 )  -Y 
" L  t  G=“  LLo->f 
GU  TO  70 

30  X=RX*RL EG/R+FLOAT I  X ) 

Y=CY*RLLG/R+FLUATIY) 

PAf  f  AYI NOUCNT*  3-1 )  =  l+l 
PAKF  AY  < NO JCNT * 3  )  =  X 


I 


■tf  ’  : 


pak«  ay  i+i )  =  y 

J  H  C  .j  iY  T  1  u  L 

PaFKAYI  M.JUyT*  3-1  J  =  L  I  MI  I 
1 1  MI T=NOOCNT-I 

LUO  PARRAY ( 1 )=LIMI T 

it ruRU 

tt«i) 


I 


I 


SUBROUTINE  LPFROG( INUEX) 

CUMMGN/MUF I Lfc/MUF { 3UOU I ,MJF  MAX 
CUMMON/SCRTCH/ PARR AY ( 6  1 ) 

LCMMON/CI USTF /UNTP1  R(  10.2)  ,CLTYDE,XZERO,YZERO,XREF,YREI  ,UnTCN( 
IMPLICIT  1  NTEu  t  r,  (  A-  Z  ) 

COMMON  ARRAY  (62) 

c  ****  COMPUTES  UNIT'S  PATH  AS  MEMBER  UF  LEAPFROG  MOVEMENT 

PluUNT  =  ARP  AY (  I  )  *2 
LI  MI T=  PC CUNT 

uptp-untpt  r ( index, i  ) 

X-=MDF(UPTK+4) 

Y  =  MDF ( UPTR*  5 ) 

GOTO (  10,20) ,IN JcX 

C  ****  L  F AO  UNIT 

1"  PARR AY( I)=PCCUNT 
FL  PT P-2 

00  15  1=2, LIMIT, 4 

PAPRAY(FlPIR)=ARPAY(I  ) 

PAf  AYIFLPTF.+  I  )= ARRAY  1 1  <■  1  > 

PARRAY!FLPTK«-2)=ARRAY  (I  ) 

P  AF  R  AY  (  FL  PTR+3  )  =  ARRAY  <  I  «•  l  ) 

PAPRAY!FL?Tk+4)=ARRAY (I) 

PAkKAY(FLPTR+5 J-ARRAY  (  IY1  ) 

PAR  A  AY  (FL  PT  P  +  6  )  =  AP«-  AY  (  1*2  ) 

PARR  AY  (  FL  F  Tk+  1 )  =  A  PRAY  (1*3) 

FLPTR=FLPTR+8 

15  CONTINUE 

PARR AY(FLPTR)=ARRAY(LI MIT+2) 

FA  Sr  AY(FL°TP«-1  >  =  ARR  AY (LIMIT* 3) 

F  r  TURN 

C  ****  CITHER  UNIT 

Z>  PA  PR  AY  I  ’.  )  =  PCUUNT 

PAR!-  AY  (  ?)  =  X 
PARRAY ( 5)=Y 
F  L  PT  R=4 


Uo  2b  I ~2 >LIHITt4 

PAPRaYtr l PTf ) =AKF AY( 1 » 

park ayiflptk+i  >=asray  u  +  l) 

PAhRAY(FLPTP+2l=ARPAY  (1+2) 
PA KRAY(FLPTR+3)= ARRAY  (  1*31 
PARPAY(FLPTR+4)=AR»AY U+21 
PA  FI  AYlFl  PTh+5  )= ARRAY  (1+3) 
PA/nKAY  (FLPTR+6  1  =  A  PRAY  (I  +  2  J 
PAFrAY(H-t>TR*7)=ARPAY  (1+31 
FL?TR=FLPTP+o 
CUM  INUL- 

Ft  TURN 
fchitf 


o  o 


SUbFOUIINL  KLLPDS(XO,VO,Xl  ,  Y  l ,  X ,  Y, X  REL  ,  YK  EL  ) 
IMPLICIT  iNTtUFF  IA-0,S-Z) 


****  st TURNS  UNIT  POSITION  R  E  L  A  C  l  V  L  TC  CLUjTcX  CtNTtK. 


( 

c 

c 


J*  -*5*?*- 

**** 

**** 

**** 


AN J  A  Kf  FFt  FOOE 


POINT 

xo.yo 

XI  ,YI 
X  *  Y 

XPEL, YRfcL 


CLUSTER  CENTER 
REFERENCE  PCINT 
UNIT  POSITION 

NEK  RELATIVE  UNIT  POSITiUN 


****  translate  x  i,y.:>  tl  origin 


KO  X=  X 1-  XO 
R>DY=Yl-YO 

xt=x-xo 

YT  =  Y-Y U 


c  ***$  ROTATE  ABOUT  ORIGIN  TU  Y  1=0 

RHYPC  T=SGRT<RDX*POX+K0Y*KUY) 

PSIN=KUY/RHYPUT 

R COS-  K  i )  X  / r  ri  Y  P.j  I 

c  ***»  GET  r'FLATIVt.  POSITION  OF  J.NIT  IN  NE*  COORDINATE  SYSTEM 

XR  EL  =  FLCAT ( XT  I *R  CUS+FLO AT ( YT)*kSIN 
YRtL=FLC>AT(  YT)  COS -PL OAT  (  XT)*R’SIN 


"■  L  T  U  r\  N 
END 


SUBPUUTlUt  FtALPS(XOtYO,Xl  .YltXREL,  Yf?£L«X,Y) 
IMPLICIT  Ir\lTEGEMA-Q,S-Z) 


****  DET UKiiS  f-'tAl  UNIT  PCSIT  liJN  WHfcN  CUSTER  IS  AT  XO.YG 


T  ■** 


C  a*** 
C  **** 

c  **** 


X.)f  Yu  LLUSTtr  CENTtR 

XL  i  Y  L  REFERENCE  Pul  NT 

XREL i YRfcL  UNITS  RELATIVE  POSIT luN 


ED  X=  X 1-  XO 
P  :)Y=  Y 1  -  YO 


f  HYPLT=bDPT(PDX-  F'OX<-hJY«RD  Y  ) 


«S IN=RUY/PHYPUT 
ECOS=RDX/RHYPOT 

XT  =1-  LuiT  IX-'  ELI  COS  -EL  CAT  (  YKEL)*PSI.N 
Yr  =  FLL'AT(  Y<nlL)  >,  UUS+FLC4T<  X*.cL)*KSIN 

X=  XT  +  XO 
Y=  YTT-YO 

PE  TURN 
END 


I1* 


SGdRUJT  1  Nl  PTl;LlIXl,IYl,IX2,  l  Y  2  ,  I X3,  I Y3  *  I  X,  I  Y) 

C  RETURNS  THE  POINT  LN  4  GIVEN  LINE  SEGMENT  CLOSEST  TO  A  GIVEN  POINT 

C  IXl.lYL:  Ttlt  POINT  TJ  it  MEASURED  FROM  THE  L luE 

C  '  1X2* IY2:  FIRST  ENCPOINT  OF  LINE  SEGMENT 

o  1X3,  IY3:  SECOND  ENDPOINT  OF  LINE  SEGMENT 

C  IX, 1Y  :  POSIT  I uN  uN  LIKE  SEGMENT  CLLoEST  TO  POINT 

X1=IX1 
Y 1  =  I  Y 1 
A=  IY3-IY2 

d- 1X3- 1X2 


I  E  4  H  .  NC  •  J  m  i 

Go  TO 

:> 

IFUIIYI  .-.t  . 

i  Y  3  J 

« An u*  (  I Y l 

•  b  il  • 

IY2)  ) 

•  Or. 

i  ( (I Yl  .LE. 

IY31 

,  AND  «  (  IY1 

•  LE. 

IY2)  )  ) 

GO  TO 

60 

I X= I X2 

1 Y= I YI 

Go  I 0  9  0 

*5 

IMA)  20*10*30 

lu 

IE ( ( ( I XI  .GE. 

1X3) 

.AND.  (  IXI 

•  GE. 

1X2)  ) 

.OR. 

4-  ((1X1  .Lt. 

1X3) 

.AND.  (  1X1 

.Lt. 

1X2) i) 

GO  TO 

60 

IX=I XI 
I Y  =  I  Y  2 
GO  II;  90 


y;ux=iy2 

X  3  AX  =  l  X  ? 

YM  1N= l Y  j 
XMIN=I X 3 
GO  T(J  SO 

-  Y  1  Aa  =  I  Y 

X  •!  Aa  -  1  X  3 
YM  r.=  1  Y2 
XM  I N= IX? 

GO  TO  50 

■  It  (  0  . 1 1  .  1  •  I  iji  T  j  5-j 

il  t(Yl  .10.  Y  14  .i.k.  (YL  .  jl  .  Y  M  « X  1  )  GO  Tu  6) 

I  X  = I X2 
l  Y  =  l  Y  l 

gg  to  9 o 

C  C.-cGio  It-  !  X 1  *  I  Yi  15  /.ITHIO  GuuNCA'-Y  Ot  olGL  SfCMutJT 

5  SLCP[=4/3 

SLOPE  1  =  -  6/  A 

YL  Ml  N=  SLOPE  V  (  X1-XMIN1+YMI  F 
YLMAX=Sli  PL1Ma1-X3AX)«-YMAX 

1NIY1  .li  .  YLMIn)  .0°.  ( Y  1  .  g  •  YL  MAX  1  )  oJ  TC  GO 

C  I  X 1  »  T  Y  1  IS  wIIOlG  t.L  JNOAt-  Y  —  CuMfJTL  CLgSESI  POINT  ON  LINE 

T= FLOAT! I  Y2 ) -S  LLPE^FLCATC 1X21 
SLUPt.2  =SLUPt*SLUPE 

XMXUSl  oPl*Y1  -  0,  L  ^>  >-*  0  ^  T  )/(l  .*SLgPE21 
I Y =5  LOP.  *X  +  1 +. j 
IX  =X<-.  5 
GlJ  TC'  9 G 

C  IXi.IYl  NOT  gIIHIN  gGUNDAPY  --  CrtCUSE  CLOSEST  ENDPOINT 

h  DA=  IX 1-1X2 

LY-l  Y 1  -  1  Y 2 
0<!=L)X*DX  +  0Y*DY 
UX=IXl-IX3 
OY  -=1  Y  l- 1  Y  3 
Ij3=1'X*OX  +  DY*DY 
It  (g3.gE.D2)  Go  TO  3.) 

!X= I  X  3 
IY=I  Y3 
GO  TO  90 

-iO  IX  =  I  >2 

I Y  = 1 Y2 

90  RETURN 

END 


esrr 


subroutine  c:i  ' 

CALL  TERPTH 

RETURN 

END 


S  JBf  OUT  I  T\i t:  1  L r  PTH 

CCMMUN/MOF I  LE/MDF  (  3000  )  ,MDFMAX 
C0MMCN/SCPTCH/PARRAY(81) 

COMMON  /SI  NGLE/ U?  TR  »  F I L  P  TK 

O.JliMr-N/OLuiTR/OM  PTk<  lo,Z  )  ,LL  TY  PE  »  XZ  ERU  «  Y  Lt  RU  ,  X«EF  ,  Yk  lF  .UwK.iT 
AY/CVLYKY  (5 ) 

IMPLICIT  !  NT  fiber  (A-Z) 

c  ****  PUUTINE  BREAKS  UNIT  PATH  In  P ARRAY  UP  INTO  SEGMENTS  UF  OUNTINJUUS 
C  ****  TERRAIN  SO  THAT  THEY  CONFORM  TO  THE  MDF  ACTION  RECORD  FOKMmI 

SK:-P1k  =  ML)F{3) 

Or.  L  l-SKRPTR .MDFMAX 
MOF ( 1 )~0 
l  CONTINUE 

C  ****  otT  FIRST  UNPROCESSED  UNIT'S  MOF  AND  SCRATCH  POINTER 

If  (UPTR.EG.  ; ) GO TO V 
FILPTR=SKRP1R 
FLPTk=FlLPTk+2 
PT  R=UPT  R 

(OTfiZO 

0  O' .  lu  I  -  I  »  UNTCNT 

I F ( UNT  PT  P l i,2).t J.O) GOTO  16 
10  CuNTINUF 

UVLYKY{1)=1 
PE  TURN 

10  UN  1  P  1  M  I  «  2  )  -  jKi'.PT  F 

r  L  PTF  =  SK*'  PT  R  +" 

?T  P=UNTPT  P (1*1) 

INOfcX=r  I 

C  ****  BREAK  Sc., MINTS  INK  ITLEOS  (TERRAIN  TYPE  LEGS) 

7  .  TTYPEO  =  MOF  (  PTE  +c  ) 

MASK=iU‘) 

SEGCNT=PARRAY( 1) 

00  50  I =1 tSEGCNT 

X0=PAPkAY(l*2> 

Y0=PA3RAY (i*2+l ) 

X1=PA3p  AY  (1*2+2) 

Y  1  =  P AP. k AY  (  1*2+3) 

IF  (CLTYPE.NE.4  .CP.  INDEX. EU.l)  GO  TO  25 
XO=PAKKAY( 1*3) 

YJ=PAPPAY 1 1*3  +  1 1 
Xl=PA»PAY((*3+3) 


V  L-  PAM-  AY  (  I  *  3+4) 

E.  C^r.T  i 

CALL  TILL  Gi(A>),Y  ),  xl,  VI  ,1  1 YPE , .MASK, MDF ( FL PT &  1  ,Mut  MAX-  rLr  I.  ) 

FINiyS=MJF  {FLPTIO 

MDF(FLPTK-1)=X0 

MOT (FLPTF  )=Y0 

•i.n  u  lpti-  t.’i-rrvPFu 

C  ~  C  =  I 

li-  (CLTYI'c.n,.-')  Lco=<1  *2)/i 

IF  (CLTYPE.EJ.3  .OR.  CLTY  Pc  •  c<j  •  3  )  LE  0=  ( I  +1 ) /2 
IF  (CLTYPE.tU.4  . AMU.  INDEX. GT . 1  )  LEG= PAR RAY (1*3-1) 

L>r  3  0  J=0  .FINDS 

.101  IFLPTR+3)  =  LEG 
t  LPT  &=FL-'>TR*S 
j')  C  1 '  \  T  ]  NUt 

TT Yr E  )=MDF( FLPTR-3 ) 

S.i  CONTINUE 

c  *<•**  pur  last  :ji  ir.T  rr  path  inti  lisi 

MDI (IL»T»-1)-Xl 
MUM  FLPTR  I  =  V 1 
MDF(FLPIk+?)=T TYPED 
MOM  FI  P TK  +  3  )  =  L  EG 

F L  r  T  r  -CLLT1  4-f. 

M JKI  LPT--1 )  =a  1 
tut  (FlPTP )=Y1 
MU  MFLPTR*?)=T  TYPED 

4  IF  I i)-FLPTP+3 

v  L  V  x  v  1  11-1 

Ft  TUk  N 
t  DU 


..^*L  -  ■■  ■■  -^WIIUWWIHW  ■  - - 


SuartUUTINE  UNT  A- L 

CUMMGi'm/MJF  L  Lfc/Muf-  (  3000  I  .MDFfcAX 

COMMGN/fVRLAY/OVLYKYl 51 

COMMON/ PPUcJlM/  PI  IMc 
CUMhCN/SlGGlL/LPTF  ,F  ILPTR 
CuMMCN/UINH'/RCJi  I  L 

CUMMCN/  RPLAY/1  NUbX  •  1  NT  BVL{  4  )  , ENGTIM 
IMPLICIT  INTEGbi  (A -2) 

CuMrtGN  ARRAY (61) 


w 


» 


U1  Mt  ,» I  lN  TAR  a  AY  (js  1,2) 

C  ****  COMPUTES  i'IIMi'JM  ARPIVAL  riMEs  t  Ok  SINGLE  UNITS 

C  ****  ALLOWS  USER  TO  MODIFY  THtM  ;  INSERTS  ACTION  RECORD  INTO  UNIT  FILE 

SKPP  TR  =  MDF (  2  ) 

UNTBLK-  *OF  (  2) 

AC  TL  LR  =  MOF  ( Li  NT  riL  R  +  ♦  +  NCOS  I  L  ~  l  ) 

ALT'-  Co=M;)l  (  OPT  K+FC JSIZ-1) 

ACTPTR  =  ACTRCO  +  MDF( ACTRCO+2  > 

C  ****  ACTION  CODE  FOR  MOVE  TU  X,Y,  TERRAIN  TYPE  CHANGE 
61 CuOE=  3u  75 
C  ****  MOVE  Tt  X » Y 
61  Coin  =  30  7  3 
SI Z  t-  =  M  OF l UP1R+2) 

TYPt=MUf (UPTP+3) 

FL  ?TK=F 1LPTR 
T I YP  E=MOF ( UPTR  +6 ) 

L  *■*■■’*■  F  i No  U  1  6  T  ANCc  S  3  F  T  *  £  E>  •  PATH  LcG  POINTS 
CALL  PNTUST 

C  ****  COMPUTE  ELAPSED  TIME  UV ER  EACH  SEGMENT  OF  EACH  LEG 
C  ♦  ***  PLACE  11  IN  1  Hi.  ARRIVAL  TlMt  W OR U  OF  THE  SEGMENT  CELL 

li  iP  FE  D=P ONI  SP  (  S  I  Z.L  »  I  YP  E  »  T1  Y  Pi. ) 

IF (SPEED. E0.01GUT099 
DI ST=MOF(FLPTR+i) 

lL ARSU= FLOAT ( u ISTI *60. /FLO  AT (SPEED) +0.5 
MOF ( FL  P  TR  +  3 )  =  F  LAPSD 
FLPTR=FL,-’Th+5 
TTYPt=MuF (FLPTR-1) 

IF (FLPTR.LT .SKFPTK) GUTC 15 

C  ****  CUMULATr  THE  ELAPSED  TIMES  TC  GET  THE  MINIMUM  ARRIVAL  TlMtS 

FL  PT  R  =  F tLPTP+5 
CuMT  1  M=  PT  I  ME 
PNTCNT  =  AR  R  AY (  l ) 

DU  25  1=1 ♦PNTCNT 

23  CUMTIM=CUMTl M+MDF (FLPTk*3) 

F  LP  TR - ELP  TP  +  6 
IF  (MDFIFLF)  R  )  .  t  U  .  I  »G0  T  l.  23 
1 ARF  AY  ( 1  ♦  U=(U‘TIM 
25  CONTINUE 

C  ****  DISPLAY  THE  ARRIVAL  TIMES  AT  EACH  NODE  UN  THE  PATH 
C  ****  AND  ALLOW  1  h i_  USt>  TO  MLDIFY  THEM 

CALL  TTAULEUAFP  AY) 

C  ****  SCALE  THE  ARRIVAL  TIMES  AND  CUMJLATE 

FL  PT  K  =  F  ILPTR  +  5 
MDf (FLPTK-?)=PI IME 


I 


)U  LcG=MOf  U  Lfl1  ) 

IF  (  TAPI  AY  (  LLoii  )  .  >  T  .  „■)  oU  1-  VI 
MJK  FLPTff  (  =  ]  IRkAY  ( L  F  3  »  1 1 
GU  TO  34 

3  2  MO FIFLPTR*3)=1Gg. AFLOAT  IMOF  (  FLPlR+3  )  )  /FLOAT  (  T ARRAY  I LE  G»  2 J  M- 

1  FLOAT  <MUF(FLPlc-2)  I 

34  CONTINUE 
FLPTR-=FLPTR+5 

If  (FLPTf.LT.3Kr- t'T  R I  uUT  C  30 
MOF( FlPTR-2)=EN0TIM 

C  ****  INSEPT  T fit  FILL 

ST  Ah  T -MOF (OPT  1 +?  *? COS  1  Z  -l I 

IF  (JPTP*  JCuilZ.L  T.4CTHLK)  Go  TC  134 

ST  ART  =  F I LP  TR 

If  (MOF (4I.GT .0)  ST  ART  =MDF ( 4  I 
134  CONTINUE 

Nt  nL  LN  =  SkR  P  1  (- f I L  f  T  F 
uLuLEU  =  ST  ART- ALT  PT  P 
TOTAL* ME* It N-CLJlfc N 
CALL  MOF  SFiF  (TuTALt  ST  A-  T  I 

35  SKRPT  R  =  MOF ( 3 ) 

FL lNU=SKPPTP-1 
FLcf  o=f  I  I.PT  F  f  Il-TAL 
P  I  h-  ACT  Hr 

GJ  40  f  IPT6  =  FLLlo»FLENI3 
MOF(PTK)=MDF(FLPTRI 

If  (M'.Jlfl  Hh-FI_BLo,5l  .CJ.OIMOI  (PTt.  JsdTCOOt 

P  H  =  r>  n  ♦  1 
*  j  (,  M  I  \  J  r 

50  CALL  MVOGNE 

MOF ( 3 )  =  F  Lbfc  f 

GO  TO  1  GO 

f.  ***+  IMIS  PAIh  !  i  i  A  J  (  I NT  . ;  MhlBILL  TtftRAIN) 

94  CALL  BACPIH(UPTF,M0F(FLPTR-4),M0FWLPTR-3)I 

UVLYKYI 11=1 
RETURN 

ICO  UVLYKYI  U=>5 

r  c  I U  K  0 

END 


> 

-4^  — — - 

\ 


SUBROUTINE  Pft  TOST 
C  CMMUN/MUf  ILh/rtuF  <  3000  ), M 2F MAX 
C'-MMON/SI  NOLE.  /  UPTR  .  F  I  LPTR 

CIMMC  J/CUJST^/JKTPTH  (  1  ),2  )  ,lL  1  YPE,  XZERO,  YZ  LRU*  XRtl  ,  Y » t F  ,  UL  J  J  <J1 
IMPLIti T  I  rnt  F ( A-C.S-Z) 


0s  O’) 


I 


C  ****  CLh^UTE  S  i.'I  A\C  fcS  3tTwtc:i'i  PATH  LEG  PulNTS  ANU  PLAolS  THurl  i,i 
C  ****  Inf  IcSTlNdTilN  POINT  ARRIVAL  T1  ME  SLOT  OP  IT'S  ACTION  i/t-Un 

SKKPT«=MOI (3) 

FLts  EG=  UNTPTp-  (  1,2) 

I P  (DPT  R  )  PLt:  CO=P  I  L  P  IP 

t  LLNU=SKF  ^TA-G 
Xl=MJf  (  FL.iFG*  1 ) 

Yl=KDFO  LbEG+2) 

MOF(  FLFSEG+3)  =  0 

j\.i  1  I  l. PI  B  —  PCtii.G,f  l  F  N  u » G 
Xl=  X  1 
Y>  =  Y 1 

Xl^MOFlFLPTP+6) 

Y  1=  MOF ( F LPTK+7) 

P  0X=  I LcAl  Ul-XO) 

PJY=I  L  C.  AT  <  Y 1  -  Yc  ) 
i’  I  ST  =  SQK  I  lM-)X*ki)X  +  KuY*hJY) 
ir  (UPTF.Nl.O)  GU  ru  6 
DC  5  I  NDt  X=  1  *  UC  CUM 

IF  (GNTPTfil INOLX, 2).cw.FLPTR)  MDF l FLP T»+ 3 ) =0 
CUNT  l  Nul 

.V10F  (  F  L  PT  R-t-  3)  =;j  l  ST 
i  C  GU  T  I  *\0  r_ 

RETURN 
t  NO 


i 


RJNCT  IUM  KiJNTSPCilZt.TYPc,  TCUUE) 

IMPLICIT  INTEuEP(A-Z) 

CUMM0N/SPEELVSP£fcDS<4,  9  I 
CUMiV  Lii  /  i  C  f<  LLti/  SS  I  Z  t 
*J  1  i'i  L:  IV  S  1 1  N  S  TCjJh  (  6  I 
DATA  ti  T  C t  J E  /  1  •  "  f  A  t  o  «  I  h  •  32/ 

C  **»*  PECIEVES  UUT  SIZE, TYPE, AND  LCMPGSITE  TERRAIN  LQCATICN  •TC.jjE' 
C  ****  CLi-iPUTES  UNI1  SPCEJ  IN  ^ASTcP  UNITS/HOUH  PROBLEM  TIME 
C  ****  .cCOOES  *  T  C  0  l.  t  *  •  A  Eli  CCJLJ  »G*D,  h  OR  SPEED  EFFECTIVE  T  ciO  A  l  N 

c  o  Alj  =  1 
RI VcP  =  P 
LAKC=3 
Cl TY  =4 
til  LL  =  b 
f  „  P  E  S I  =  A 
liLEr  SI  =  I 
HLPOAD®  3 
CL  EAP  =  C 

C  Ci.ECK  F-JK: 


i 


I 

I 

I 

I 


I 


TT  YI’r  -C 

IK  lL^.'L.fv.  :)  L>,  I'i!" 

IE  (I  A..J(  blCl.DL  (r  ILL)  ,  T  C  Ji  >  E  J  .  7L •  i )  T 1  YPt-HILL 
IK  (1  A\IC(  BTCCCLlf  (lPEST)  ,  TCUDE )  .  NE  .0  )  TT YPE=  FORES T 

IF  UANJiaTCt  Ot  (hILL)  « TCt.DE  >. NE  .u.ANO.  T1  YPE.  EQ. FOREST  )  TT  YP  HU  l.a  I 
If  II  AM  J I  BTCCtc  (LAKE) ,TCUuE  )  .Me  .0  ITT  YPE=  LAKE 
IF  tlA^iXMTCL'OC  (CI1Y)  ♦  TC-.Tfc  )  .  Me  .0  ITT  Y  Pt-CI  TY 
It  (I  A.v  LMrJl  f  ..L>c  (K  IVE‘  )  .  T  CO  J  L  )  .ME.  on  TYPc.  =  «  I  V  L  A 
It  (1  A  Mil  CTCCUt  (EAT)  .TCCut  )  .Nt.C  JTTYPe-RU  AD 

IF  (TTYPE.FQ.KE  AD.  AND.  I  AND!  BTCHOE  ( HI LL ) , 1  CODE )  .  N  E  •  0  )  T  T  Y  P  E-=  HL  KG  A  ) 
li*  If  (TTYPL.EE. 0)1  TY»E  =  CLc  AS 

r  u.MT-lYPF-r.-TrKF.  AIM  SPEe  ) 

T  J  F  L  L  o~  S  •?  t  c.  J  S  (  T  Y  P  L ,  1 1  Y  P  t ) 

C  ****  UNIT  SIZL  f  AC  Tb-t  (PERCENTAGE) 

sz  fli\=i:.. 

IF  (o  I  Z  l  •  I  0  .  ?  )  S  i  r  lT  '<=60 
If  (  j  IZ  F  .  h  A  »  .3 )  S  Z  f  L  7  ■  =  C  A 

G  ****  CONVERT  SPEED  TO  ACCCMULATt  UNIT  SIZE  AND  GRAPHICS 
C  ****  FUNTSP  IS  IN  GRAPHIC  PulMG/HCUF  PROBLEM  TIME 

'•0.\rsp=(  in,.;:./n  lAT  (SSIZL)  *f  lJAT  (TSPEEO)*FLOAT(SZFCTK)  )/l  Ja. 

re  Turn 

tNO 


SUBhUUT  I Nc  TTABLUTlMtS) 

CGMMliN/PRCBLM/ PT  IME 
IMPLICIT  INTEGtk(A-Z) 

COMMON  ARP  AY  (6  31 
OIMFNSIl'.  T!''l3I31,?I 

L  ****  auUTlNt:  ALLOWS  JScR  Tu  StLECT  ARRIVAL  TIMES  AT  THE 
C  ****  DEST I  NAT  IONS  OF  PATH  LEGS  WITH  I  HE  RESTRICTION  THAT  THEY 
C  ****  NOT  PRlCFOl  THE  MINIMUM  ARRIVAL  TIME  IN  ARRAY  ’TIMES' 

C~LL  1  MSGU  I*F  3) 

STM  i  M  =  PT  1  ML 

PI  TO NT -ARRAY  I  L ) 

IF  (  PT  IHL.LO.I  Ittt-St  l  .1  )  )  'SC  TO  200 

no  IOC  1  =  2»  PNT  CNT 

if  m  iFsi  i-i,u. to. n  vtsu  , in  oc  to  200 

1 '-.0  COisTlNUl 

CALL  SCI PSPIP- CNlol 

IF  (  PR  CNT G.LE.ul  ,U  TU  20vJ 

UU  17S  I  =  l • PNT  CNT 

MNMUM=T IMLSI I, 1 ) 

If  (l.Mr.i)  ST-'T lM=TlMEi(l-l,I) 

T  I  ••if  =  1  j  •.  r  LoaTIMNVijm-STkT  I  MI/ELOATIPKCnTGM-FLOATIST  RTi  u 


«. 


> 


1  I  -1r  •>  (  !  ,  2)  =r  T  C  NT  G 

i  I  r  -  r  1  Kt  -  - 1 

LA.  l‘5u  J»l  ti’MCM 

TIMtSt  J,  1)  =  T  IMESC  J  ,1  UulfF 


150 

CONTI NUt 

1  75 

CCJiM  INUc 

CALL  TMoi- 1  T  I H _  S  ) 
Ft TUf N 

'■'J 

CO  NT  Ii\Ui: 

O'u  10  1=1,  PMC  NT 

X  =  ARK AY ( 1 *2  +  2  I 
Y  =  APF  AY ( I *2*3 ) 

MN.-UM-  T  I  '* h  j  (  i  t  1  ) 
l  f  (  I  ,,-iE  .1  I  j  Ir'T  !  M  =  T  Mb  S  (  1-1,1) 

■WfiAl  =1  .  25*r  Lt  AT  (  tfNrioH-*!’-'  THM-H.oATtSTtt.TMI 

I  F  t  MNMUfl .  iYt  .  S  TR  T  I  M  )G0  10  2 
CALL  SELSTT  (Mi'll-IUM  ,X,Y ,STRTM1) 

T  I  ME  =  STM  M 
1  IMF'S  I  I  ,  2  )  =  < 

GOTO  A 

2  CALL  SELAkl  ( M NMUM , NOM N Ao  »  X, Y  * ART  1  ME ) 

T I ME= Afc'  T I Mb 

i  T1MI  S(  1.2)=L0u.1  FLJATtMMUN-STMIMI  /FL3AT  (T IME-STRT  LM  ) 

*  0 1  F F  =  f  I  ML  -  ifvnLM 

ij  J  5  J  =  i  ,  ?i  IT C  --IT 

TIME  St  J,  11=  f  IMES  (j,  1  MDIFF 
*>  CUMINUt 

CALL  T MSG (  T  ME S  I 

l  .  CoM  I  I  ••)U  c. 


FT.  TURK 

ENL) 


3U6RLUT  INE  SElAR  T<  TNMU M  ,N0  AL  , X ,  Y,  T I  ME  J 

CUMrtliN/PPUBLM/PTiMt 

CO  Mrt  CN  /  BRANCH  /  OK  T  UK  N 

LU MMi;N/ X  P  L  A  W I  Not  X .  I k 1 P  VL  (  a ) , END  T I  A 
IMPLICIT  1  NT  t  u  t  *•  (A-l,l-/_) 

LuGitAL  JrlUtN 

****  ALLOWS  US.tR  Tu  SELtCT  AN  ARRIVAL  TIME 

to  R o>  0  R  =  5 

H.-tl  I  Ml  =  H RMNS  ( .IN. OUt: ) 

HMTIy2  =  HfcMMS(.*Ju  INAL) 

CALL  GENT ( CUKSCK l 
CALL  GBUT ( l.loJ.X,  )| 

CALL  GPUTIP.iiC.Y ,J) 

CALL  oPUT (  ^, U  3,  l) 

CALL  ufcUNI CUESo-  ) 


1  CALL  GliLl 

ChLL  GS Cm (  1 000  »t> ) 

M-  I T E I  15,  1000) 

1  uOO  EuRMAT C'SELECV  ARRIVAL  TIME  •  I 

CALI  bSCM  (  1  jo  1  ,  ) 

tT~(  15,  lvallHflTHl 

1001  Eu  PM  AT  (  •  MI  M  MUM  :  '  ,  I  5  »  *  hOJPS*) 

CALL  C.SCHI  1002.6) 

Vif  If  L  (  l  Jt  lo  >2  |HHI  -12 
It  re  E  'RMAT < • NOMINAL: ' , I  5, •  EMJHG') 

CALL  GSCHl lu03  , fa ) 

WRITE! 15,1003) 

UjCi?  FORMAT  (• OTHER'  ) 

CALL  i»S  TT  l  .  * ' 1 ) 

C  ****  iLLtCT  E  ROM  ABOVl.  L  I  GT 

2  CALL  SFLECl (3, CMC  ICE) 

IE (0PTUFN)GCTC2 

U-  (cHi  ICE.NE.l  T  !5 
•>  CALL  it  LNUMlHitT  I  Ms  ) 

IF (OkTUE  NlGOTul 

Call  OECMI M  HMT I  M3  »  T IMb  ) 

IE  U  IME.LT.KNMOM.tiR.TI  Mt.GT.bNOT  1M)G0T03 
Gi  T'  7 

5  1  1  yf"=  .MNMUM 

IEICEtPICb.EG.2  >Tl,M£=Nl'MNAL 

f  CALL  otNl(CURSCf) 

CALL  L.EUT  C-  ,12  ■),  3,  "- ) 

CALI  GtCE  CCOEoCf  ) 


RETURN 

ENO 


SU  8E  UU  T  i  Nfc  it  L  ST  T  (  f-iNMU M  ,X  ,  V  ,  T  l M fc  ) 

CCMMCN/RPLAY/l  iNJtXi  1NTKVL4  4  J  ,  tNUTI  M 
IMPLICIT  InTEcEk ( A-Z ) 

***--  ALLOY'S  USE  i  Ti,  SPEC  If  Y  THE  HoRAUUN  CF  A  WAIT 
CU  RSOE  =5 

CALL  <jENT  <  CUHSCE  ) 

CALL  GPUT(1,IUC\X,3) 

CALL  GPC'T(2,I1c,Y,o) 

CALL  GPUT ( 3 ,  1  3  ,  j, 1 ) 


call  ~  a . NttO-n.-  ) 

CALL  . * r tL  T 

CALL  OSCH<luOo,J) 

WP II t( 15,  UiQO J 

l.iOC  t  ,i  MAI  (  '  t  iv  I  >->  bT.\Jl  II  Ml  Ut  *  ) 

C  A  Ll  i  •$  (.  i  t  (  l  uli  I  t  -  i 

W? I T  E  ( L5.lO01» 

l  -A  huhhAT l ‘NcXl  LCu  CM  PATH* I 

i  A  LC  jSTl  liii'1) 

CALL  SCLAuMH.',  I  !  > 

CALL  uKCMINIHMTI fc.TIMt) 

IF  U  I  MF  .LT.MK/.iJM.bR.T  1  HF.U  T  .  Ert'JT  lMIGuTUl 


CALL  jEb riCU-AC- J 
CALL  L  P  C!  T  L  3  *  1  A  ■  ■  *  A  •  >  i 
CA  L  L  .>  l  lL  (  CUf  A  i  ^  J 

KF.  TUkNI 
END 


m 


$U3k(  UT  INt  BAUPTHlUPTR  iX,Y ) 

CQMMLN/HjI- 1  LL/.'luF  (300G  )  ,H£) f- MAX 
CuMMUN/  PRuGH*>/  IUTLPT 
ii'HLlL  l  £  l  VI  I  h  -  (A-Z  ) 

r.tliUf'j  GSB  1  I\1  A  Owl  I  HAi  A  PaIM  1M.  IHMriilLE  T  v»l  , 
CO  HScP  =  5 

****  Li  Ah  O.'.IT  i„  ..OLSriLO 
call  oit  1  MOI  (  C‘!1R  +  i  M 
CALL  k,.a0i  l  3,  1  i  ,,3. 1  I 

C  ****  LuSlUCN  CoRoLk  AT  RATH  l  NT  Lb  SEC  T  I  UN  W  iTri  IMMublLf  TtRMl.4 
CALL  GFNT  (  CUR  SCR  ) 

CALI  uf'Ul  (  L  * l c 0  * X » 0  1 
CALI  TRoT(  Z.ll  w.Y.  )> 

CALL  jr*  UT 

C« LL  oFCNKURSCM 

C  ****  DISPLAY  HESSAg: 

CALL  c  °  T  rtMl> 

CALL  CASE I 

c  ****  »r  A  £  T  FcR  M  IMeRUPT 
CALL  DINTRP 

C  I'***  STCP  JMT  SY'-lfCL  A L  INK 


>** 


\ 


A 


CALL  -jf  '  1  l  4U  t  CRTk+1  )  » 

CALL  1 . J  i  T  I  3  »  !  ’  j ,  3  ,  >  ) 

C  ****  TUhiN  OFF  Cdr< SC  r. 

CALL  GFNTICdP.SCP  l 
CALL  oPUT(3, 130,3,01 

CALI  wtCrtCURSU) 

l  ****  r i,  uf  MtssAuL 

C4LL  UFFSEL 
CALL  BLKSEL 

0  *■**»,  lUr.M  t:FF  C  l  U  S 1  b  ^  CIRCLE j  AMD  MCVEMtiMT  PATH 

CALL  rtVU'lt 

RF.TUP.Vi 

END 


SUBROUTINE  UlNTrP 

CUMMUN/KtY L I  T  /  KUh  1 »  S'Li»»  2 1  RL)*»3  *  SOW  4 
COMMON/ PhUGEN/ INTKPT 
I  ''.PL  I C  I  I  INTEi.P-U  A-/ ) 

t.  ****  uaITS  E  j(  l.HltV.JPT  (13  PLACE  CP  DPlCT  k) 

CALL  LAMPS(24o,^CW2,RCW3,:(Gw4) 
l  CALL  CkiniT(KEY) 

'  )t  i  U  J  =  1  »  4 

i  HKEY.GI  ANG.KEY.LT  .J*3  )v,C'TCi2C 

1  .•  Ct  M  i Nuf 

GoTU  1 

20  IN7E.PT =KCY 

*t-.  turn 
END 


7^? 


SUBROUTINE  MVDONE 
IMPLICIT  INTEGEMA-ZJ 
COMMON  ARR AY ( 6  3) 

O  ****  lit-  AEi 1  i  C.  S  INVOLVED  I  N  UN  11  M^VtMtNl  ARL  INITIALIZED 

C  ****  TORN  OFF  CLUS1CR  CIRCLcS 
Du  I  1=1,10 
1  CALL  GtCiF  (  7^1  I 

Pt-  TOP  N 
t  U) 


-X 


\ 


SUBROUTINE  012 
CALL  CLSARL 

RtTURN 

LNO 


SU  Bi-  OUT  INS;  CLSA“L 
CuMHUN/u VkLAY/OVLYKY ( 5 ) 

CO  MM ON/ BRANCH/ Oh  TURN 
1 ,1 PL  1  L  I  7  INTtui.r  I  A-Z  > 

Li^UI  C  AL  t)kl  URN 

J1  Ml  NS  I  i  LST  1  4i-.il  l  ,2)  ,  jPJTBLI  31  ) 

****  PERI URMS  ARRIVAL  TIME  DEFINITION  FCk  CLUSTER  UNITS 

UVLYKY  (  1) -B 
CALL  PN7DST 

CALL  CTMTiiLCLS  TIME, SPOT  3L) 

IF  ( UR  TURN)  RETURN 

CALL  TT  ABLE  I LST IME I 

CALL  I NSERT ( LS  TI ME  »  S  PUT 8L ) 

RE  TURN 
ENU 


SU&RGUT  I  NE  CTMTdLILSTlME.SPUTBL) 

CLMMCN/MDFILE/MDFl  3000)  .MDFMAX 

ClMMON/CLUSTR/UNTPTRI 10.2) , CLT Y PL . X7 t RU , Y2C RO . XREF , YP EF , UC 0 ONI 
C  G  K  M  L  i  *  /  0  F  A  i  i  C  H  /  D  r .  T  U  R  N 
CoMMLN/PRObLM/PT  iMC 
COMMON  APPAY(oi) 

IMPLICIT  INTEGER!  A-Z) 

LOGICAL  DRTURN 

01  MtNSIUN  LSTIMEU1.2)  .SPDJ6L131) 

C  ****  ruuTl.NL  CuMPuftS  SLOwcS  T  Jr.IT  u<i  EACH  CLUSTER  MJVlMCnT 
C  ****  L  to  FEi-  THE  SPEC :)  TABLE,  AGO  COMPUTES  MINIMUM  ARRIVAL 
C  ****  TIMES  FIR  EACH  NODE  OF  THE  CLUSTER  PATH  IN  THE  ARRAY  LSTiMt 

SKFPTk=Ml)F<  3) 

DR TUKn=. FALSE. 

00  TO  LfU-1.31 

LSI  I  Mb ( LEG  » 1 ) =U 
l$TIME(LEG.2)=0 
SPDT3l(L£i,  )  =  32/67 
lu  CONTINUE 


**** 


COMPUTE  SLOWEST  SPF’FOS  duu  LoNGc  ST  DISTANCES  ALuNG  EACH  l  Lu 


;v  t  in  JtX  =  1 1  UC.I-UimT 

L 

SI  Z  F;=  MOF  (  OJNT PT  K  <  I  N  DEX  + 

TYPE=Ml)FI  JN1  PTP<  INDEX  , 1 1+3) 

C  ****  FIND  THfc  LEO, 

FLPTR-U.mI  PIP  l  INDEX.?)  +‘j 
i  u  bG  =  Ll.  G+ 1 

If  (MOF(FLPTR)  .  tG.LE-j)  3i_(J4 
FLPTR=FLPTK*5 

IF  (FLPTR.Gb.UNTPTR  (INBLX-H.ZI.UR.PLPTR .GE.SKhPTR  IGJTOZj 
GOT  O’  2 

i  ****  0L4PUTE  1H_  MAX  140.4  JaIT  rfuVLME-JT  J  l  STANCE  FOR  Tnl  S  LLj 
V  I t  4F  =  o 

TCrDE=KOf  (FLPTK-l  I 

SPLLD  =  P.UN  ISPtSIZE.TYPF.TCCDE) 

IF(SP£ED.EU.O)GgIC99 

IF  (SPEED.  LT.SPOTBL(LtG))  SPOT BL ( L LG  )= SPEE D 
I  l  ME  =  .4UF  (  F  LPT'R  +  3 )  ♦  TlPli. 

FLi'TR  =  FLPIk  +  S 

IF  (T  I  It.G  1  .  IsT  I  -If  (  LEG  .  UI  LST  ME  (  LEG,  1  >  =  T  IMfc 
IFIdDFIFLPiF  )  .  NE  .  L  EG  )  GOTO l 
G0TU6 
CONTINUE 

C  ****  I.O.4P0U  MJNMU.4  ARRIVAL  T  1.4 LG  FROM  SPEEDS  AND  DISTANLLit 
C  ****  CUMULATE  Tm  Akt-.IVAL  TIYES 

TIMF-PT I  ME 
NL  EG  S=  APP  AY  ( I ) 

CP  4b  LEC= l .NLcCS 

1  1  'At-  riMfc+If  IX(eLUAT(LSI  I  ME  (LEG,  1 1  M6G./FLGAT  (SPJTliL(LLb)  )  » 
LSTIME(LLo,l)  =  TI<'4£ 

4<  CUNTINUE 
GO  TO  100 

C  ****  UNIT  SPEtD  I G  o  .  TELL  USE*.  PAT  i(  IS  R  E JtCTED  AUTOMATICALLY. 
’hi  CALI  oADPTH  ( UN  TP  TF  (  1  NoEX.l  )  ,  MOF ( FLPTR-4 ) ,  PDF  (  FLPTR-3)  J 

dr  iuk(m=  .  rput. 

loO  RETURN 
END 


I 


SUBROUTINE  INSER 1 ( L ST  I H E , S PD ToL ) 

CUMMCiN/MOF  ILL/MDFI  3000  )  ,MUFMAX 

CCNMON/CLUSTR/UM  PTK  (  10,2)  ,CLT  Y  Pt ,  XZE  R  J,  Y  ZE  FC,  XREF,  YkEF  ,UCOJ  'll 

C  i.’  WiuN/ulNFG/sCDSIZ 

COMMON/.-  PL  AY/ l  NJ  ,  I NTPVL (4)  ,  t  NOT  IM 
0 .  ■  rt  M  C  N  /  P  P.  C  8  L  M  /  ?  t  1  M  E 
IMPLICIT  INTEGER  I  A-Z) 

REAL  SPEED 

DIMENSION  LST1MEI3U2)  .SPOTBLUL) 


-.+  o 


G  llib  imiUT  1  ML  Li-3r’uTE.  o  JM  f  ARRIVAL  T  IMLS  CeRP  E  SPUN  JI .  lb 

' .  1  IHi:  CLUSTER  I  N  l  l*  Ii*  i  S  f  I  i-s  c:  A  )  G  oPuT  3L  »  INSERTS  Tn  l  S 

C.  ****  IMu  t  Ao  H  U.\11*S  HLfi  A  ,<j  J  THE  iM  INSERT  S  EACH  FILE-  INTu 
C  ****  the-  UN  I T  *  i>  ACTION  RECL-iR  D 

SKRPTR  =  MJF:  (  3) 

00  2U  INDFX=1  •  OcC  U  IT 
L  to  =  0 

T  I  M  E  =  ?  T  I  ."1  fc 

****  EINL)  THfc  LtG 

FLPT»=UNTPTR( INDEX, 2) *5 
LEG=LEC+1 

I !  ( HOF  I EL  RTF ) .b  J.LEj) GOTU4 
E  Lr  Tk=FLP  TR  +  5 

IEIFLPIS.u'.  .unTPTR  (INDEX*!,  2)  .UR.FLPTR  .Gc.SKRPTR  IGOToio 
G0T02 

****  COMPUTE  THE  ARRIVAL  TIMES  EUR  CELLS  ON  THE  LEG 
IF  ( LSTIMEI Lt&» 2)  .GT.O)  GO  T 0  6 
****  PROCESS  A  WAIT  Lie 

I  IMl=LST IMF  I  LEG, l  I 
MUF  (FLPTF  +  j.)  =  T  l Ml 
FLPTR=FLPTR+5 

IF  IMUFIELPTt I.Nfc.LEG)  GL  TO  t 
Go  TO  5 

o  SPEEG-o.i'  l*FLliAT(LSTIME(LcG,2)  )*FLUAT(  SPDTBL(LEG)) 

7  OI ST=MOF( FLPTR+3) 

IF  ID  1ST.  GT.O)  GO  TU  8 
C  ****  WAIT  FOR  OTHER  UNITS  TD  CATCH  UP 
TIME=LSTIMt(LEG,n 
MPF I F  lPI n +3 )  =  T i ME 
o  u  T  U 

1  I M E  =  t>0  ,*f  L'J  A T  I  0 1  ST)/  SP  EE  0*F  LU  AT  (  TIME) 

IF  (TIME.GT.LSTIME(LfcG,lI I  T  IME=LST I  ME (LEG, 1 ) 
MDF(FLPTR*3)=TIME 

9  F  LPTR  =  FLPTP.*5 

I  F  CMUF  (FLPTF).  Ml. L  cG  )  Go  TGI 
Gl'  T  (  7 

10  MUF  <  FLPTF -7)=fN0T  IM 
2o  CLNTINUF 

C  ****  INSERT  THE  FILE 

UNTt3LK  =  f'UF  I  2  ) 

ACTGLn  =  MUF  ( or-lT  el.K+4+PCUaIZ-l  I 
C  ****  ACTION  CODE  FUR  MOVE  TO  X,Y,  TERRAIN  TYPE  CHANGE 
BT CODE =30 75 
DO  45  I  Nl)EX=  l »  UCGUNT 
UPTP=UNTPrR  I  INDEX,  l  ) 

F  I  L»-  T  fc  =UNT  PTR  I  iwuEX  ,2  ) 

AC  It  CD=MUF(  uPTK  +  RCDSU  -1) 

ACTPTP=ACTRCD*MJF( ACTRC0*2  ) 

ST  AkT=MUF (UPTR*2*PC0SI Z-L  > 

IF  I UPTR ♦RCOSIZ.LT . ACTBLK)  GO  Tu  25 
ST  AS  T  =  f  I  LPT  R 

IF  (MUFI4I.GT.U)  S  rAR.T  =  *DF  (  4) 


?  b  Cl  4T  1  NuL 

fC-*LLf\  =  oK'LPTR-f  ILPTE 

II-  (  liM.>EX.LT.uC~uNT  )  NtwL  E  N  =  JUT  PI  P  {  li'jUt.X*  1 , 2  )  -i  ILPTC 

l  LDLEU=STAF  T-AC1PTR 

Tp  I  AL«NEl»  LEN-ULULEiM 

CALL  MDF SHF (TOTAL, START) 

liu  3^  I  =  l,dLUJM 

Ui»THcl  I  ,:)  =  U!xirPTc  (  1,2  )+Ti.l  AL 
3.)  CC:  MINUS. 

SKRPTR=MOE( 31 
EctNO=$KRPTR-L 

IE  (  INOEa.L  T.UCC’UNT)  f  LEND=UM?IR{INi3EX+i  ,2)-l 
el  Bf  G=T  1LPTR4-T  U  AL 
R I  E  = AC  1 PTR 

30  tw  EL  P(R=FL  Jfcv,,Flt.\l' 

HOF ( PTP )-H0F (El  PTE  ) 

l  F  IMCLH  FL  F  l  P-f  LtiEo»i> )  .t U .u ) MOF ( PTk )= dTCCDE 
PTR=PTR+1 
CuM  1  i\U  L 
Cl  tiT  I  i\uF 
CALL  MVDi.Kt 
Hue ( 3) =UNTPTR(  1,2) 

E.FTURN 
END 


AO 

4b 


SUBROUTINE  013 
CALL  AOBEl 
RETURN 
END 


SU  UUT  I  mt-  AUbtl 
LOMMulY/S  INGLE/UPTR»HLPTP 
CuMMON/rVR LAY/GVLYKY ( 5 ) 
INTtGfcK  CVLYKY 
I  iv  iLut?  UP)  f-.F  ILPTP 
IMEGCR  UiMTPTF 

UVLYKY ( 1 ) = I 
uVLYKY ( 2 ) = l 7 
DVLYKY  t  3  |  =  1  3 

UUP  1  R=UPTP 
CALL  *Otifc  (U.N1P  lb) 

(■  i-  T  U  f>  i\i 
LNO 


» 


> 


I 


So%£cwTT/J£  I\<m3  £  ^OiOTpTR 

Ci  iVf it  \/«i»f  I  ir/rti'l  (  3  )«!,{ t  ,MJt  WAX 
L •  j i /  il^>LL/iuK'L(490o)  ,  I C  4  h 
CwMrtLN/AT  T/l AT  T(  12  ) 

CGMNC'N/l.VRLAY/C’VLYKY  (  5  1 
COMMON/ SC°£kN/Sl  Zt 
CcMMON/SCFTCH/ SIDES (81) 

F  i_  AL  l  Ci  *-  AJ(  4  ) 

I  N  T  t  G  L  r  SUES 

I N  T  t  o  t  P  Ci  u  E,bC VLYKY,  i  !ZE,UMTr>TR 
INTtGtP  iJSIZt,  JlYPE.UTixUW 
OIMCNSIbrj  PRMTX(  3*  4  »  2  ) 

01  Ml  MS !UN  lA^Y liaO ) . INT  ARY ( 5), Al>BMAX( 4) 

OAT*'-  A>'MMAX/»a>,2,6,  1.  «  1  .3/ 
iUlA  1  \)t-f  AO/  io  »  *  1‘  2*,,,  3*5,  2,5/ 

A  A  rl  t*  '♦Oi  3#  75,  l«L8y«4oy3*  )A|lildt»48f3*7ilfi»idy  i  Id  i 

4  J.,0.,.24,1.87, .59y.24yL.5t.47t.19tl.87y.59, .24/ 

CUOL  =  1 

it  luulPTK.oF.  l'vUE  t  l  )  t3)  )lCOE=^ 

UI  Y  P  E  =  M  l>  F  (ONI  r  It-  «•',  ) 

CALL  (j  L  f '  P  (  1,30,1) 

CALL  CNSEL 

CALL  bSCFUlOOO,:-5) 

wf.ITtl  15,  1000) 

:  "MO  E  i  R,V  A1  (  '  AC  ci  L  *  ) 

CALL  GSCH(lGOi,<) 

IF (UTYPE.nG  1 1  f-  (  15  ,  1  j  0  1 ) 

IF  (UTYPL.Lw.2)«r<n  E(  15, 2001) 

1001  FORMAT  I  *  DIRECT  AMU  INDIRECT') 

2001  FORMAT  ( '  DIRECT  FIRE') 

CmLL  >j  SCh  (  1  u03  ,c  ) 

«r  l TF  <  15,  1003) 

IC'.ll  Fi.RMrtl  CPRtbo  rUdif,  TU  •  ) 

CALL  GSCFt (  1004, o) 

WR IT  E ( 1 5, 1004) 

1004  EUEM AT ( * SEL  ECT  NtR  OMIT*) 

CALL  GSAYt( iOPL, 11, 12, I  3) 

OT  NuM-M OF ( UNT  PIE U I 
OGWN=  7  3 
I E  L=6 

H3  A(JfaM  AX(  UTYPE  )*  1023  •  /  FLUA  T  (  S  I/fc  ) 

U 3  I ZL- MDF ( JNT  P 1 K  *2 ) 

MiiVt  =  MJF  ( JNT  PT  R*7  )  t-1 

P.s  =  PFMTX(  u3I  Zh  ,  uTYPt  ,  MOVE  )  '  1 02  3  .  /F  L  0  AT  (  S 1  Zt) 

IF  (UTYPE.EC.2)GC  T(J  120 

CALL  GBEG(  13 10 ,  MOF ( UMT PTR+4 ) , MDF I UNTPTR45 ) > 

CALL  GPUT(4,  140,5,  CvjJt  ) 

CALL  0  PUT ( 4, 140, fa, C COL  ) 

IK  AU= 1 UFkAUIUT VPF  »* 102 3 . /FLOAT ( SIZt)4?P 

CALL  GPUT( 5, 1760.0,0) 

CALL  GPUT(6, 1600, IRAQ, 0) 

120  CONTINUE 

X  =  Ml)F  (UNT0TP44  I 
Y=  MuF  (  U"tT  PT K4 5  I 


CALL  u.‘!u(13tM.  (  U  4  IP  IK*  4  I  ,Our  (UN  I  r>  I  r  +  3  )  ) 

L  A  L  L  i  j  P  U  7  <  3  t  ’  !  tj  1  . 1  u  I 
CALI  ( >  °  U  T  ( o  t '  n  0  >  2  t  3  ) 

CCN'f  fcL=  l  AN0(MDFIUNTPTP+6>  ,16) 


u  SF  It  Cl  U'.'LCC  F  vji  I  ML  iE  TLu  1  1  -0  CONI  l, JR 

if  (U NT  P I  k  .  >i  •■■0,1  ( '1  1  f  (  2  )  ♦  3  )  ) C  iu u  =  k. 

call  or* uT(4»14u«^«ccdl) 

CALL  GPU I( 4, 1 4 j, 6, CODE) 

LULPNU=  7  2 

IF (OS  I  Zi .  LW.-  )  L  -  L  ?n.)=  J6 
>j\  ■  7  'j  u  I  -  u  i  L  Cu  Pnu 

AwGL£  =  F  LO  AT  (  I  I *o . 2  A 3 1 9 /FLU  A T l LOl PNJ ) 

S  =  S  I  N (  ANGLO 
C  •=  C  0  S  (  ANGLO 
X  L  =  PP  *C  +X 
Yl=( i *S*Y 
IX  1  =  X  1+.5 
1Y  l=Yl  +  .5 

u  THE  FOLLuW  I NG  CLUE  FINDS  THE  ENDPOINT  X2,Y2  WHICH  IS  THE  FUMHcST 

C  PuSSlALt  I  Ht  GIVc*  UNIT  A  Y  3,2  _  ALU  No  A  LINfc  SLGMLNT 

I F  (aI. Gc.  '•  An  J  .XI. LI. 1*. 23.  A  nD.YI.GE.O  .AND. Yi.LE.io  23.  ) 

+  GD  TU  209 
/  X2-=X  I 
I  Y  2  =  Y  L 

uij  TO  2  14 

2. IF  X  2  -X  L  fH*C 

Y2=Yl*ri*S 

IF(X2.GL.0.I  GO  TO  210 

X2  =  o. 

Y2=Y1Ma2-X1)*-S/C 
?I0  if (X2.Lt.Lu22.)  GO  ru  211 

X  2= 1023. 

Y?=Yl«-(X2-Xl)*S/C 
211  IF(Y2.Gfc.O.)  GO  TO  712 

Y2  =  u. 

X?=Al +  (Y2-Y 1  I *C/S 
217  It  (  Y2.LL.1  i;  3  .  IGc  T  0  2  13 

Y  2= 102  3 . 

X2=X1*(Y2-Yl I  *  C  /S 

213  CONTINUE 

I  X  X  2  +  mb 

i 1 2-Y2  ♦  O.b 

IF  (  S  IDES  (l).LE.O)  GO  TQ  420 
I fc  ND=S  I  Lit  S (  1 1 *« 

DO  420  K=1,IEND,4 

C  ALL  WHurFXI  IX  I  ,  IYI,  I X  2  ,  I Y  2  , S  luL  S I X. ♦  I )  .  S 1  JL$(K.*2)  »  S1DES(K«-31  , 

♦  SIDES(Nt4)  .INTAaY) 


If  (l..T/UY(l).LC.U  Gl.  Ic  42o 

ix?= intary ( 21 

IY2-  INI  Ac  Y  (  3  1 

420  continue 


4*  j  1  I  YPt=  IWf-AWl  (  I  XI,  I  Y  l,  Ifc4) 

CALL  TTLFUo!  Ixi  ,  IY  l  ,IX  2,  I  Yi,  ITYPt  ,184, 1  At-'Y  ,15  3) 
CALL  N  jAhLi  t  (  l  A  l  ,1Y1  ,1X2,  IY2»UTYPE»  I  AR  Y ) 

214  l fc  L= I EL+ 1 

CALL  GPUTI ILL, DOWN,  1X2,  IY2 i 
0GWN=-  5  3 

2E>.‘ '  CCNTINUr 

300  i«TT(U=C 

CALL  GSTT(O.O) 

310  CALL  GLCiN!  1310  ) 

CALL  G£(  M  1  32v.  1 
CALL  OtCNIUTNufM 
CALL  DELAY! 30j ) 

IF ( IATT ( 1 J.NE.01GC  TP  320 

CALL  GECF (  1310) 

CALL  GbPF!  i2P.u) 

CALL  jfc(:f-  (  UT NUN) 

CALL  C E l A Y ( 60 ) 

220  If  1 1  ATI  <  II  .EO.OJGCi  TC  2  10 

IF ( 1  ATT ( 1) •Nl«3C,UR.IATT(3l »NE  «30 IGO  TO  300 

GS c  CALL  GRIST! luPL, 11, 12, 1 3) 

CALL  GLM?(  1  ,3u,0) 

CALL  GECM  UTNuM ) 

CALL  CFFStL 
CALL  GLKSEL 
RETURN 
t.NIJ 


SUBROUTINE.  NDAUEfcl  l  XI,  IYi,  iX2»iY2»UTYBE»  I  ARY) 

C***  THIS  SUBROUTINE  hILL  RETURN  IN  THE  VARIABLE  X2  AND  Y2  Tnc  cJUEUINMES 

C***  UE  THE  POINT  WHICH  INUlcATES  THE  E NO  OF  THE  LInE  Of  THl. 

C -  BATTLEFIELD  EFFECTIVENESS  C'F  A  UNIT  ALONG  THE  LINE  jCuHEi.T 

C -  I  X 1 , 1 Y I  1X2, IY? 

CDMMCN/SCREEN/ SIZE 
REAL  LOSMTX.LENl ,LEN2 
INTEGER  SIZE 
INTEGER  TTY  E  ,UTY  Pi. 

INTlouR  C  T  ,  NT  ,  PN T r\ ,  I  Ae  Y 
01  MENS  ION  I  ARY  I  ISO  I 
DIHENSICN  A0BEMXI7 ,7,4 ) 

OATA  AOBtMx/ 3i-  2,5,0,  ,2*  5,0  •  ,  2  •  5,0,  ,  •  5,7^0,  ,  •  2  ,  3^  •  J  ,  ,2,3^  u  • ,  ,  5  ,  j  ,  , 


+  3^1*%0*il«jfi»»l»!)iJ»  «  « !?  .  7*  0  •  .  *2  i  3^0  •  .  .2*3*0..  *  5 . 0  •  »  •  .>  *  J  *  i 

^  l«3ta^f«3f^t  La3fl3"Ual»^|i^  iat*^f^Jaf2^a2| 

t  3^1at0a|la|0atla|0ata!>l7^c0afa2f3^t0a|a2|  3^0a  y  a  *)|  Oa  f  a  3f  Oa  9 
+  Laf2*a^f4*la|3*Lala2|3¥Oa9a2»2*La(2*:a2| 

+  3^a5fOafa3(«)af  a3|0ala3l  7^L)a  9  a  2f  3^0  ata29  3^Jafa!)f0a  |a  3  t’3a  | 

+  7**3. 3*0 at  a  ^tOa  »2^Ua*a^l2^'Ja9  2^ta2/ 

DI  ST  (  A.B.C.t))-  S>..'  °  T  (  <  4-t  1*1  A-U  +  (  3-0  )  *  ( li-O  )  1 

I H I LL=0 

SC  AL  E=  10  2  3  » /FLOAT (  SIZE) 

X1=IX1 
¥1=1 Y1 
X2= 1 X  2 
Y2  =  l Y2 

IARYL=5*IAf.Y(  l)  +  3 
PNTR=3 

IE (1  AMD (16,1 APY( 3) )  . E Q  .  16 )  I H I LL= - 1 
C 1 =T  T  Y  P ( lAf  Y( M) 

NT  =C  T 

LENl  =  ALiL-CMX(CT,CT,  JT YPc )=SC ALL 

IF  (0  1ST (X  1  «Y1 1 X2 » Y 2 ). L E. LE Nl.ANO.l ARY (11. EQ.O) RETURN 

IF(IAPY11).EQ.0)G0  TO  200 

IF4PNTR.GE.IAKYURETURN 

100  XN=1 APY(PNTP) 

YK= 1 AF Y( PNTk+1  ) 

NT  =T  T  Y  P  ( I  ARY  (  PiTTR  +  3  )  ) 

IF  (<CT.G£.5.AfJD.CT.NE.6)  .A  NO.  (  NT  .  EQ.b  .uk.  NT  .LT  .5 »)  I  HI  LL  =  1  HI  LL*  1 
IF (DISTIX1.Y1,  XN,YN).GE.LEMIGC  TO  200 
Li_N2  =  A0Bt.MX  ICT  .NT  .UTYPL  )*S  C  ALL 

IF  ( tLLNP.cy.O.  ).0k.  I  01  STUl.Yi.XN.YN)  .GE.LEN2)  1  GO  TP  3ik: 
if  (  IHILL.0E.1JGC  TU  3 00 
Lt  N1=LEN2 
C  T  =.N  T 

PNTR=PNTF  +  5 

IMPMP.LT.  I  ARYL  )G  J  TO  100 

200  tt=j|  ST  (Xl.Yl.X2.Y2  1 
P  A  T 1 U=  LEN1/H 
IF (RAT  II  .GT.l.  IRETURN 
IX2  =  X1+-FAT10*(X2-XI  J  +  .5 
IV,'=YH-FA!  Ii  *(  Yt-Yl )  3 

P F  ' U P fi 

300  I X  2=  XN 
IY  2= YN 
RE  TURN 

ENO 


t 


I 


SUBROUTINE  PNGCNT 
CUMMON/C VRLAY/GVLYKYI 5  I 
IMPLICIT  I.NItuf1-’  I  A -L) 

C  ****  P  tRFL  RMS  ALL  KM  I  Fi.’R  THE  JNI1  RANGE  CONTOURS 

SI GN=uVLYKY ( 2 ) — UVLYKY (  1 )— 1 
IF (S IGN I 30t lOt  2U 

1.J  CALL  KCMMII 

GL.TL50 

20  CALL  RCMMI2 

GOTU50 

3.i  CALL  PC  MM  I  3 

SO  OV  LYKY ( 1 1 =1 

RETURN 

cNU 


m 


SU8F  CUT INF  KCMMI L 

COmON/MuF  UE/MDFI  3000  )  »M0FMAX 

CuMMON/Ul SPL/10PL( 4900 ) ,IER« 

C'-irtMuN  /  C  VP  LAY/lVLYKY(  n) 

COMKL.M/£PAi\CH/.;-  TURN 
IMPLICIT  IhTtute IA-C.t-2) 

Ll>G  l  CAL  UPTURN 
OIMLNSIUN  UNTcNT (3  t4) 

DATA  UNTENT /2oo, 201 ,20 2, 2J 3,204,  205, 2Ufc, 2 07, 208,209, 2  lUt2UV 

(.  ****  (-OUTINE  LNAlSLES  JSL  -  IJ  jcL'id  JNIT  PUS  I  T  ItlNS,  TYP  E  S  ,  S  I  CL  , 

l  *»<■*  ANU  JLSTlNATIuN,  USfcO  1C  COMPUTE  RANGE  COM  OURS 

f NT=450 
CUKSOP=  1 
I 3ALL-1 
ACClPT^I 
RfcJt  CT  =  J 
$KRPTR=MUF( 3) 

FL  PTR=  SKRPTR>'3 
CO UN  T=0 

CALL  o  SAVE  I  IliPL.ROr  (  2*92)  ,  .*l>F(2999)  ,M0F<3  j).>)  ) 


* 


'  ****  Cf^AU  '•  ANGC  CUiMCJf  EN1  IT  I  LA 

Di  Ji  j=l,K> 

CALL  GBt  G  ( 400+J  ,0*0) 

CALL  CCLGF12) 

LhLL  GPUTI 3, 120, 2,3) 

CALL  GPU  MS,  L760 ,0, 1  ) 
i:-  CUNT  I  GUI 

1  CALL  RCMSG 

IF  CCUUNT .  FQ  . lu ) Gu  T  05 
CALL  SELUTT ( TY  Ft ) 

IE  {Ur  T U p N «  AGO.  C'iUM  .L0,.J)0CT  OG 
IF  IDE  TURN  )(U  I  •> 

2  IF  { TYPE .WE . 1 )  CALL  SELUTS(SIZE) 

IF  (TYPL.EO.l)  S  IZ£  =  3 

IF  (UPTURN) GOTO  1 

CALL  GCPYC ENT , UNTEU1 I S  I  Zt, 1 YPe ) «  0, J ) 
CALL  C0LL'R<2) 

CALL  LAMPS ( 0 ,0 ,0 , 3) 

CALL  UPSMSG 
CALL  UNSEL 

3  CALL  MOVENT ( ENT  »  ENT ,T8 ALL , X , Y ) 

CALL  CKINT ( KEY ) 

IF (KEY. NE. REJECT) GOT 04 
CALL  GEOF(ENT) 

ENT=ENT+i 

G0TU1 

4  IF (KEY. NE .ACCEPT ) GOTO 3 
1=0.  0234b*FLQAT(  X)  ♦  l.  i» 
J=0.02346*FcCAT(  YH-1.5 
X=42 . 63*F LOAT ( 1-1) 

Y=  42.63*FL0AM  J-l) 

CALL  GPUT ( 1 , 100, X, 0 ) 

CALL  GPUT (2, 110, Y, 01 
CALL  SELSPOt PRCNTG ) 

IF ( .NUT.0RTURN)jUTQ45 
CALL  GEOF(ENT) 

EN  T-ENT  +  1 
GOTOI 

45  CONTINUE 

IF (SIZE.E0.3)PRCNTG*FL0AT( PRCNTG) *.64 
IF (S  IZE.EG. 2) PRCNT  G=FLCaT( PRONTO)*. BO 

MUF(FLPTP)=TYPt 
MOF(FLPTR*l)=I 
MOFI FLPTR+2  I*  J 
M0F(FLPTR*3)»PPCNTG 
FLPTR=FLPTF+4 
COUNT=COUNT ♦! 


CNT=fcUT+l 
GL,Tl  l 

MDFt  SKRPTR)=CCUNT 
CALL  UFFSLL 
CALL  eLKSEL 
RElUKN 

IX.  7  1=2,5 
I'V  LY  KY  (  11=0 

CALL  OREST  I 1  DEL  tMDb (299  8), MOFI 2999) ,MDF 13003 ) ) 
RETURN 


SUBROUTINE  KCMMI2 
CC  MMUN/MUE  f  L  E/MOF  (  3000  )  »MU  FMAX 
COMMON/ BRANCH/ UPTURN 
I.-IPLlUT  i  iTL«i:E  (  A-C.C-Z) 

logical  orturo 

SKkPTk=MOF<  31 
ACCEPT  =1 
CUKSCk=  1 
T  3 AL  L=  1 


CALL  DSTMSb 

CALL  RCMSb 

CALL  UNSEL 

CALL  LAMPS(0,j,'i,2l 

CALL  bFON<  Cu?Si>. 1 

CALL  KcVt  ‘IT  tCU-:  SCR  ,  111  ALL  *X,Y  ) 

CALL  CKINTTKEY} 

IE  (KEY. fife. ACCLP1  )GnT02 
1  =  c  »  u  2  3  4  o  *  i  L  C  A  f  (  X  )  *■  1 . 0 
J=  w . 02  3 4o*E  LuA  T  <  V  J ♦  1 . 5 
X=42  .03*FLl AT(  !  - 1 J 
Y  =  42  »63*E  LGAT ( J-L) 

CALL  b  P  UT ( I* 100*  X  »  0  ) 

CALL  GPOT(2,UO,Y,OI 

MuH  SKP  PTP  +  1 )  =  I 

Hi)F(  SKRPTk  +  ?)  =  J 

CALL  BLkSEL 

CALL  CNNMSG 

CALL  ONSEL 

CALL  SELMJMC  NUMBER) 

IE  (LIE  TUENToOTOl 
IE  (NUMBER  ai?T#  10)  GOTO 3 
MuF  (  SK.KPTP)=*UMbEE 
CALL  OFFSEL 
CALL  BLKSEL 


SUBROUTINE  KCMM13 

COMMCN/MOF  I  LE/MDF  (  3000)  .MDFMAX 

C<_  MMLN/O !  iPL  /  I  DPL  l  4 900  )  .JERK 
IMPLICIT  Ulll-tr IA-Q.S-Z) 

INTtbth  h  E  J  Pr  SihLJ RE LtKTURA 

C  ****  ALLOTS  USER  TO  VIEW  MOVEMENT  CONTOURS  INDIVIDUALLY 
C  ****  TIME  LINE  AND  ARROW  REPRESENT  RELATIVE  PROBLEM  TIME 
C  ****  NUMEC  ICS  ABOVE  ARROW  INLICAIE  REAL  PRU3LEM  TIME  UE  CUNT 

r  r.  J  P  F  10  ) 

PE  JR EL=C 
KTURN=30 
SRKPTR=MDE( 3) 

CnTNUM=MDF ( SK" PTR) 

END!  I M  =  MOF  (  SKKPTk+1  ) 

T  =  CMNUM 

RNTR  VL=EL  OAT  (  FN1/TI  M)  /  FLOAT  (I  ) 

INTRVL= 1U00/I 
CALL  FCMSG 
CALL  F C ? M SC 
CALL  CNSEL 
CALL  TPNBRT(O) 

CALL  LAMPS ( 64»  0»L  *  1 ) 

I  ii  CALL  CKINT(KEY) 

IF  ( KEY  . KE  .  P  £JF“S  )GUTC2>) 

1>>  1  LUNTINUF 

CALL  DELAY! INTRVL) 

1=1+1 

IF  <  I  •  N  E  .  C  N  T nUM ♦  I ) oil  T f  1  2 
Du  11  K=l,10 

II  CALL  u£ON !  400+  K) 

GO  TO 1 4 

12  DO  13  K= 1 » 10 

13  CALL  UEGM4U0+K) 

IK  I  .GT.CNTNU'l )  1  =  1 
CALL  bcCNI 400+ I  I 

CT  IMR=FLl  AT ( !) *RNTRVL+ J.5 
CALL  CL0CK2 ( CT IME  »  ENDT I M) 

14  CALL  CK  INT! KEY ) 

IF  « KEY. NE. RE JR  EL )G0T010i 

2j  IF (KEY.NF.RTUF MGuTulO 

CALL  UFFSEL 

CALL  BLKSEL 


CALL  CLKUPU 

CALL  oKcill  IDPL.MDM  2  >'*3)  .  V  JH  c  VVV)  ,  MdL  U  0  i  }  )  I 
DC  2  1  *.=  1,1.1 
CALL  GE0NI400+K) 

CALL  T RNfiKT (21 


PCTUPG 

END 


SUBPGUT INE  UR1 5>L 
COMMQN/OVftl AY/  III  VKEY  (  5  ) 


'«■  «r 


OaTa  NXuRD/26/ f^Yo=J/26/ 

IOVKcY(  1 »  =  1 

UELX  =  lC23./f  Lf  AT  (r<XC.RD~2) 

DELY=1023./H.GAT<NYv;R0-2) 
CALL  RISE(0£LX,UELYI 
RETURN 

t'Ni) 


SUBROUTINE  r  I S  L  (  Ut  L  X  *  Li  E  LY  I 
DIMENSION  IAKMloOl 
DIMENSION  *11(3,21 

01  MLnSK  N  G  A  M  A  (  _  7,27)  ,V  (2  7  ,2  M  ,  1  GTI  2,  125) 

U-MMC\/Mi>F  IlE/.^H  3)0  )  )  ,  3  J  F  M  A  X 

C  C  MM  \  /  S  C  )•  c  i f /  I  3  I  L  F 

DIMENSION  IFCb(lj) 

DATA  I  FCti I  3  ),  I  FCbl  31,  IFCBI  9)  ,  IFCbl  I  0)  /O.iNVM,  2HAT ,  2HP a/ 
Data  v/720*ltl0/»ISr/25j*-i/ 

D*  1  A  OaF  A/  72  v  0  4V.  / 

OA 7 A  MAX/125/ 

0  V  F«C  I  S  2  X'  x*  3  0 

DATA  VFAC/Z4FC  OOGJO/ 

DATA  NXPI/27/.NYF1/27/ 


C  ST  A' T 

c 

0  IOEMIFY  INITIAL  SURF  POINT 

C 

MPTK=MDF( 3  J 
i'.l>  M=  MU  F  (MPT!  J 
,.,p  =  M p T a  +  j 

‘ CluN I = I 

I  JNoL0=0 
I SFgL J=  0 

call  rivsdiiarrj 

!  C  u  N  T  I  N  U  t 

lUNl  T  =  i'll Jf  (  MPT.  ) 

II  Ni  f -  Mur  ( M P T - ♦ I ) 

JINI  T=MDI  (MPTM-2) 

I  S  F  A  C I  =  MO  F I M  P  T  R  3  ) 

MP  TF  =  MPTR  +-4 

IF  (  I  ONI  T  •("  ••  1 H.LO  .AND.  1  SF  ACT  .EG.  I  SFCL  J)  GO  TC  3 
SF  ACT  =  NC  uu • *FL  l AT (  IjIZlI/FLuAI  (ISF4CT*(NXPl-3)) 
l4LL  • » L  T  l»  {  ^AMAtOELXfUfcLYt  I  U^iITt  SF  AC T  ) 

CALL  GAMHPOI I  ARK , GAMA , DELX , DEL Y , I  UN  I T , SF ACT  ) 

C  IP  TF  POINTS  TO  LCC.  IN  1ST  C JKFENTLY  BEING  PROCESSED 

I iUK  F  =  1 
IP  TP  =  L 

I  INI T= 1  INI T  +  I 
JINIT^JINIT+I 
VI  UNIT  *  JI  NIT  )  =0. 


ooo  O  OO  ooo  [ooo!  UUlU  0^0  0  oouom  OUOj  OO 


l  S  X=  I  1'i!  T 
1 1 V- J  i  s  I  T 
IS  I  (  1  ,  1  )  =  I  J  A 

ist<2,  d  =  isy 

5  CALL  N1  ALL  t  (  !  S  X,  I  S Y  * N T  •  VI 
1 cLNb=C 

L 

r.  SEctCl  \lIGHH.  <  ROl'iT 

L. 

U.  IS  ELN6= I 3ELN8* 1 

IF  (ISELNB.CT.d )  GO  TO  30 
IX=NT(  I  r.  E  L  N  8  *  I  » 

IY=  .1  (  JiELNU.2  ) 

IF  I  1  X  •  L  U  •  G  •  tJ-  •  G  A  4  A  (  I  X  ,  I  ?  )  •  s  t:  •  I  GuU  •  )  »jO  I  U  10 
HAS  THIS  POINT  LEEN  PRQCESSEJ 

IF  (VI  IX, IY) .Gt.0.0  .AND.  V I  I X , I Y) . L T . 1 E9  )  GC  TC  2J 
IF  (NCOUOT.GT.II  V t  IX,  IY)= VI IX, I YI/VF AC-1.0 

CREATE  NEW  LCC  AT  ION  IN  SJR  F  TAbLE 

CALL  SRFAOUX,  IY.ISURF,  1ST) 

CALCULATE  FCM  LE  Ni.  IGHEC^  TRANSITING  TO  SURF  PT . 

20  VTRY=FCM<  ISX.ISY,  IX,  IY,GAMA»*Vl  I  SX,  IsY) 

IS  THIS  FOM  <  EXISTING  FOM  OF  NEIGHBOR? 

IF (VTk Y.GT.VII X, I Y ) )  GC  TO  lJ 
REPLACE  NEIGHBORS  FOM  VALUE  ANu  GECISIJN 
VI  IX,IV»-VTRY 

MORE  NfcIGHBOFS  TO  EVALUATE? 

_ IF  I IS E LN8.lt .81  GO  TO  10 

NO  MORE  NEIGHBORS  TO  EVALUATE 
_  DELETE  SURF  POINT  FROM  SURF  TABLE 

0  CUNTINUE 

CALL  DLTSRFUPTR,! .SURF,  1ST, V) 

I SURF  TELLS  HOW  MANY  POINTS  IN  SURF  TABLE 
IF  ITSUR  F .EQ.O f  GO  TO  5000 

SELECT  SURF  POINT  WITH  LOWEST  FOM  VALUE 

CALL  SCHStt I PT R* 1ST* I SURF* V ) 

ISX-ISTI1.IPTR) 

ISVISTI2,  IPTR I 
GO  TO  5 
2000  CONTINUE 


* 


rv- 


■_  C!L  T  L  c  .4  I  NE  FLM  VA  t  L/t  OF  \t  I  GHo,  :s  S  Dc  S  T  l  TAT  I 

r 

VTPY-V( IX, I Y) 

C 

C  SJEe  Ft.M  .LE.  JEST  I  NAT  I  CM  ELM? 

IE  IVTE  Y.t  t.VI  I  Sx,I  SY)  )  JW  T  l.  1, 

o  l.  T  t 


aCOJ  CONTINUE 

CALL  CUT 2 ( V ) 
iVLuf.l  =  \C  UUf;T+  I 
IE  (NC  jM.GT.Noi]  C-r  t<.  7Cuj 
□  l_  6  00')  J  =  I,NYP1 
L=NYP1-J*1 
DC  6000  1=1 ,  NXP 1 

V{ I , L ) = VEAC* ( I.O+VI I  ,  L  )  ) 
6 •.CO  Cl  NT  INuF 
C  IMTIALI/C  SU-  E  f  AoLi: 

P_  2  1=1,  1 A  X 

i  st  c  1*  n=-i 

IST(2*I)*-1 
Z  CJNTINUF 

I  J  NC  L  J  —  1 0 . « I  T 
1 SEC  LD= I SF ACT 
Lu  1 C  I 
7000  CL NT INUt 

CALL  V$CPEN(ld,16,IFCB» 5i 

WE  ITE< 16  )  V 

OALL  VSCLLSI IS  ,0) 

FE IUEN 
END 


) 


I 

I 


i 


SUBkCJTINE  ft  IV  ft jC I  APR  ) 
CUMMON/MOFl L£/MCF(3uGG J .MJFMAX 
01  MENS  I CN  I  ARK ( 1 ) 

C 

N4^  =  *, 

C  LTlK  Elk  PIVtPS  Fir  ST 

JT YPt-2 
I£NJ=MDF<  2)-l 
5  IP  TR  =  MDF ( 1  ) 

It-  UEND.LC.  I  PTt  )  -ETJRN 
10  INX1  =MUF(  IPTM 

ITYF t  =  MuF ( I PT?  K 1 

if  (  itype.ne. jtype  »  c,o  ra  400 

IP  Tft= I PTR+6 
l MAX* I  NX T- 1 PTo-1 

Do  200  l= l • I m; x 

1  AF  (  NA?  r-H  j  =  ,VOF  <  IPT  ‘•♦II 
20o  CONTINUE 


*£  ■** 


i  .Aj-  r  =  \AI  h  *-Iv'Aa  +  ^ 

1  A 1  •  (  r  ,  AL  - 1  )  =  P.OtJvJ 
I  A  r  "  (  V\!  r 

C  FINISHED  WITH  MOf  V 
40C  IF  ( IwXT.EO.IENOJ  DC  ID  500 
IP  TR= I NXT 

U  If 

5  00  i  A  h  1  (  tM  A  r  +■  I  )  •=  2  OuO 
1 4  k  b  ( ‘  <1 A  F  P  *■  2  )  =  0  ;  ^ 

IF  I  JT  Y  PE  .  t(j  .7  )  kfcTUPN 
C  DO  FUADS  NGw 
JT YPE=7 

Nm3-  =  NAFI>  +  ? 

ul  ic;  5 


SUSP  Ou  TINE  GET G(  oAMA.QEEX,  DEL Y,  UNIT,  SFACT) 
INTEGER  SPEEDS 
01  MENS  IC'N  G A^A ( 2  7 , 2  7 ) 

Cui'lf” /  SC  EC  G / .}  Pc  t U S  (  4,  S  ) 

DATA  l  /  io/  v  1  /  2  6  / 


DO  TOO  1=2*  NXGF  D 
DO  100  J=2 ♦ NY G«0 

ICGOE= I  Tel  l  ( 1  *  J • OELX  «OELY ) 

Ih  (ICC  JE.i'iE.'i  )  GO  TC  2u 
G  A  H  A  { 1  ,  j  )=Sr  AcT/F  LoA  I  (  SPcFOS(  UNIT,  3)  ) 

Gl  T  C  U 

30  ITEST=lAivi< I  CODE. 8) 

IF  ( I  TEST •  EQ.Ol  GG  TC  -*0 

GAMACl, J)= SFACT/ FLGA1 ( SPEEDS l I  UNI T , 4) ) 

GO  TO  100 

AO  ITEST=I  ANSI  I  CODE  •  A) 

IF  ( ITEST.EG.O)  GU  To  50 
GAHAI I, J 1=9999. 

GO  TO  100 

50  ITEST=IC00E/16 

GAMAII.  J)  =  SF  ACT/ FLOAT  I  SPEEDS!  UNIT,  ITEST+4)  ) 
100  CONTINUE 
RETURN 

END 


FUNCTION  ITfcRMl  ,J,DELX,D£LY) 
lX=DELX*FLuAT< 1-2) 

IF  IIX. F3. Ql  IX=1 
If  UX.cC.l  J23)  1  A=  L  022 

IY=JELY*FU.AT(  J-2) 


If  (IY.LJ.O)  I Y= 1 


if  ciY.ee.ij*3)  iy=ic22 

IJEfr=lhfcA«i(IX,IY,60) 

Pl  TUF  N 
END 

SJBPCIUT  I  Me  GUI  2(  V) 

DIMENSION  VC27.27) 

DATA  N  X  r*  l  /  2  7  /  t  NY  P  i  /  2  7  / 

Cl  10  1 »  NYP1 

L=NYPl-J*l 
UU  5  I=1,NXP1 

V(UU--1.0*VI  I  »  L  ) 

IF  ( V ( 1 1  L ) .LT .0.0)  V(l,L)=lclO 

■3  CONTINUE 

10  CdNTINUf 
PE  TURN 
ENO 


SU8KLUT  INfc  u  AM  ?MC  j  (  I  ARP.  ,  GAM  A  ,  Jfc  LX  ,  DE  L  Y  ,  I  UN  I  T  ,  SF  ACT  ) 
01MfcNSIC.fi  GAMA  127, 27) 

UIMENSIGN  lAFTd) 

"J  A  T  ^  ,AAp  L  /  2  7  / 

C  Kl  Vfcfc  S  (£0=1)  THL  f.  E^AUS  (10*/) 
ir,=i 
I P  TP  =  L 

IF  (  IAPK  i)  .EC. SCOG)  GC  TJ  5uJ 
XA  =  1  Ar '  (  1  ) 

YA  =  I A» “ ( 2 ) 

JyrXV=YA/OcLY  +  2 .  li> 

IPTP=2 

LOG  Ifc  ( IARF (IRTF ) .LW.2GJG)  GJ  Tu  45g 
125  XB= I AR R ( 1 0 TR  ) 

Y  8  *  I  A  P  P  (  IPT--+1  ) 

C  IFLAg*1  GLNUTLa  f  i.,al  o;.vplfti  .  j  '.F  A  L£G 
I  F  L  m  j  =  0 

IF  (XB.cQ.XA)  GL  TO  200 
SLOPfc= ( YB-YA  )/ ( xd-XA  ) 

C  JFLAG  =  1  OtNCTcS  IMMINENT  CCMPltHuN  uF  A  LEG 
JF  LAG=  » 

jA=YA/GELY«-2.:> 

«iG  =  Y 3/  JfcLY+2.R 
JM  !.«.=  , MING  (  JA,  Ja) 

JM  AX  = J A  + J8-JMI N 
I  =  XA/tJfc  LX  +  ?  «  5 
I  5  X=  JtLX'-f  LCA1  (I  -2) 

U  (  AuS  (  X-X  9)  .  Lt  .C'.S>*JLLX  )  jFLA  j-1 

Y=SL'PE  (X-XAJ+YA 

J=  Y/  GEL  Y  *2  •  5 

IF  (J.L7.JKIN)  J  =  JM I N 

IF  (J.GT.JMAXI  J=JMAX 

JS AV  L  =  J 


C A  lL  >  ■  Fo  <(  -4MAi  i  ,  j  i  i  j,  .,-.H  i  JclY  ,  I  J  I  IT  t  sl-AlT  J 

-  f  ILL  I  4  J  VALoui  T .  3  •  :  V 1  C  >J  j  J  IJirtV) 

-  IF  I  J,,j  -  V  •  i  r  *  Go  [  J  17) 

J=J*l 

CALL  oMLIXoAMA,  I , J, iG.OECX .DEL Y, IGNI T,  iFACT) 
uU  1C  1 6u 

1 1  I  r  (  J  .  L  -  .  J  A  -  t  V  .  -  -  .  J  .  C  »  .  J  f-  I  1 )  o  o  T  j  1  j  J 

J=  J-l 

4-all  j  Fi  l  >  t  ji'A.itj*  i  it  lclx  h-lly  t  ill  1 1  r  >  sfact  ) 

GO  T  U  I7u 

150  1=1*1 

IF  (Xb.LT.XA)  1=1-2 


IF 

( I.-L.l  •  r* 

i  •  r  v  •  \  X  t*  L 

IF 

I  iFLAOttCtl  ) 

<  j.,  T  0  1\ 

J?-' 

CV  = JV.Vl 

IF 

IJFLAG.Eo.l  I 

Gu  TO  4,)j 

fiU  TO  150 

C  V  fcr  T I  CAL  LINE  LF  lutwTICAL  PuINTS 
’’O'  !f  (Yn.l'O.YA)  0«.  TO  ;uu 
I  =  XA /ot  LX*?  .  >J 
J=YA/‘JcLY*2.f> 

JF  IN=YB/JLlY*2 .5 
JPKtV=JF IN 

250  CALL  GMC0(CAMA,I,J,  I G, OELX ,UEL Y , I  UN  I T , 3FACT ) 

It  (  l  •  L  T  #  \  X  o  _  I  (ALL  SMCOICAMA,  i,Jt  1  l.OELX,  JELYtlU'Jll 
J  =  J*  1 

IF  (J.GT.JFIM  ;J(J  T(  700 
0C  To  250 
C  GL  To  ft  EXT  LEG 
700  I P  TR= I PT°  +2 
X  \  =  X  b 
Y  A  =  Y  H 
Ol  If,  loo 
C  FINISH  OFF  Lfo 
<♦00  I  =  XB/iJtLX  *2  .5 
J=YP.  /OELY  +  2.5 

CALo  o.Mf  OIOAHA  ,  :  t  J,  I G  t  JlL  X  t  U  EL  Y  ,  I  UN  I  T  >  aFACT  ) 

If  L AO= l 
G-  To  l C J 

C  OC  TC  NEXT  RIVER  (i?  ROAD 
450  I F  LAG-=0 

IPTR=IPTR*2 

IF  (  l  A c  -  <  I  y T  P  )  . i  o .  V.'Oo  )  00  To  5o  J 
XAM  APR  (  1  PTF  ) 

YA=  UFMPTF*L| 

JPP1 V=Y  A/ 0t LY  +  ? . 5 
IPTR=I°TP*2 
GC  TO  125 

C  F  I  0  I  5htu  W1TF1  a  I  L"tAIN  TYPt 
j  Oo  IF  (  I  o  •  t  Vi  •  7  )  h  F  TUr  N 
I(,  =  2 

GO  TO  450 
)  END 


I 


» 


•  S  F  A  o  1  ) 


S  J  3f  l.'j  T  t  Nc  Git  w  ( t>A  A  t  I  i  Ji  iu*  ->cla«jELY  i  itiiilT  »  SE  ACT  ) 
INTEGER  SPEEDS 
CuMMuN/SPFED/SPfcfc  )S(4,9  I 
DIMENSION  L>  AMA  (i7%  Z7\ 

GAMA  I  I  ,J)=GS9G. 

I E  (JG.Ew.lt  v  E  1  Ur  i 

GAMA  (  1  ,  J»=SEACT/ELGAT  (SOEECSUuM  IT,  11) 

ICCDE= ITePR  <1 , J, OELX, OELY) 

IE  (  ICOPE.EO.lt  CP.  .ICC0E.Ew.43J 
*  i  A  3A ( I  , J  J  =  j  E  At  T / (  LG  AT ( S  Pt  cuS ( I  UN  I  T  ,  a  )  ) 

Ft  TUrN 


SUbftUUT  iNt  NTAfcLH  ItJ.M.V  » 

DIMENSION  V ( 2  7  *  t  7 ) 

G  I  NG  I  Lt 4  '  T  (  ■  » .  ) 

ata  naF  l/?7/  ,  vtpi /m 

iHio  PJUTINi-  L?t/«bP  ATfcS  A  TAbLt  Lit-  IhGICtS 

indicating  me i ghogb s  ci-  the  f'uiNT  ii.ji 

i 3  i=i  +  i 
I/.  i=  i  - 1 

JM  1  =  J  —  L 

J°1=J*1 
Nrii,n  =  r 

N  t  ( C.  I  I  =  I 
O'.  0  ',=  d,4 
IiTUtll  =  i“l 
OL  7  K  =  6 «  b 

NT  Ut  1  )-IMl 

M ( Jt  2) =J 
M  <7, 2 )^J 
Ju  iu  K=4«C 

NT ( K , 2  I  =  JM 1 
NT ( 1  »  2  )  =  J  P 1 
NT  1 2  *  2 )  =  J  P  l 

t T  lot  '  I  =  Jr*  1 

iA  dO  L=l,d 

IF  (  V(  NT(L  ,  1  )  ,  NT  (L  ,2)  )  .IT.  ..  j»  A  Tj  2  5 
IF  (MTIL.U.GT.NXP1  .OF.  MIl.LI.LT.I)  vjU  TO  25 
IF  INTI  L,2)  .GT.NVPl  .UP.  NT < L , 2 ) . LT . U  GO  TO  25 
G(  TC  2') 

NT II i 1 ) -0 
n T  Cl  , 2  )  =  u 

cr  M  I  NUT 

Pc  TUP  N 


n  r>  o  nr 


I 


EuNCT  I  ON  EQMU  1,  Jl ,  12,  J2tGAMA> 
DIMENSION  GAMA  (27*271 
DATA  S0T202/.  707107/ 

It-  (11.  tQ.  1 2  .0°.  Jl.fcU.J2)  iiO  TU  10 

C 

01 AGONAL  I PANG  IT 

FUM=gUT202<CGAMA(I I , Jl J +GAMA (I  2 , J2> ) 
RETURN 

HORIZONTAL  OK.  VERTICAL  TRANSIT 

lu  FOM= IGAMAI I  1 , J 1 ) +GAM A U 2. J 2 1 ) * . 5 

RETURN 
END 


o  or 


SUBROUTINE  DLTSRFI I PTR  ,  ISURF  ,IST ,V) 

DIMENSION  V(27,27),IST<2,125) 

utLtrfcS  A  POINT  f-RuM  SURF  TAbLE  JY  kEPLACINo  INDICES 
6Y  -1  AND  UECREMtNTS  I  SURF.  ALSO  ADDS  9 
TO  ID  TO  INDICATE  POINT  IS  IN  LAKE 

V (IS Til,  IPTRIt  1ST  1 2» IPTR) ) »-l.U-VI I STI I , I PTR ) » I ST( 2  » I PTR) ) 
1ST! L,IPTR)=-l 


.X 


1ST ( 2* IPTR  )=- 
ISURFMSURF-1 
RETURN 

END 


SUBROUTINE  SCH ST ( I PTR , l ST,  ISURF, V) 

REAL  MIN 

U 1  MENS  I  CM  V l 27  ,2  7) ,  1ST! 2,125) 

DATA  MAX/125/ 

r 

C  ROUTINE  StARCHES  1ST  FOP.  LON EST  FOM.  , 

C  ISURF  TELLS  HCW  MANY  PTS.  IN  SURF  TABLE 

C 

MI  N- IE  10 

DC  lui;  1=1,  MAX 

IF  CIST  <  1,1  ).L£  .0)  0,0  TO  100 

IFCVC1STI  1,1),  IST(2,I)).GE.MIN)  (,0  TU  lt)U 

IP  TR= [ 

MI N=V ( I  ST ( 1 , I )  ,  1  ST ( 2 , 1  )  ) 

L  ;0  Cl.’ NT  1  NUE 
re  Turn 
END 


SUBROUTINE  OUT2(VI 
01  MENS  ION  V(27»27! 

OATA  NXP1/27/.NYPI/27/ 

00  10  J=1,NYP1 
L=NYP1-J+1 
DO  5  I * 1 1 N  XP 1 

VU»U*-1.0-VCI.L1 
IF( V( I,L).LT.0.0)VII,L)=1E10 
CONTINUE 
CQNT i NUfc 
RETURN 
END 


SUBROUTINE  016 
CALL  CONGEN 
RETURN 

END 


SUB-UJTINt  CCNoLN 
REAL  Z(27,2  7J 
iNTcUcf'  wL  -.K  (  i  Guo  ) 

EXTERNAL  DRAW 
CGMMON/CVRLAY /  ICVKEY(3) 

CUMMQN/MDF I L£/ MDF ( 3000 ) ,MDf MAX 
DIMENSION  OVAL (10) 
ul  Ml  NS  IC  a  I  F  C  3  (  l  2  ) 

uATA  lFC3(->)  .  I  FC8(  3)  ,  I  FCB(  9)  ,  II  CbdO  l/jt2FiVM,  2HAT,2FikX/ 
DATA  NX/27/, NY/27/ 

IuVKEY ( 1 J  =1 

C  EVALUATE  FUNCTION  TL  BE  PLOTTED 
CALL  ViOPENI l6,io, IrCB, J) 

F  l  Al.  (  I  B )  2 

CALL  VSCLOS  (  1  -I »  ' ) 

IP  TR  =  MOF  (  3 ) 

NF=MDF( IPTR) 

IF IN=M0F (  IPTk  +  1) 

JF I N=MDF ( IPTF+2) 

T  4Aa=Z(  IFINM,  JF  IN-*- 1 ) 

DO  10  I  - 1  ,  M  F 

OVAL  (  I  I  =  T.MAX*FLCAT(  I  I/FLOAT  (NF  ) 

10  CONTINUE 

MDF ( IPTP+1 )=TMAX 

C  Dr'Av.  THE  CJNTOUF  -HA  IS 

CALL  UCONT  R (/, 2/»NX »  NY , CVAL , NF  »  1E6, «URN  *DF AW  1 
F  t.  Tu  t  N 


SUBROUTINE  OR Ak < X. Y , I F LAG* CVAL) 
INTEGER  HRMNS 
INTtGER  CLAB 

0 1  ME  NS  l  GO  CVAHiu)  tCLAB ( 10  I  « JEL  {  10) 
uA  T  A  NCO/ 1/,  Cl  AO/ 10*0/.  JtL/lJW 
0 A 1  A  XL/42. 62S/,  YL/42.62f>/ 

DATA  I  BLANK/ lH  / 

IH  =  I F  LAG/ 10 
IF  IIH.FQ.u)  OC.  TU  40 
1  ENT  =  I  Ht4t>>> 

CALL  GtNTIltNT) 
lcL= JLLI IH) 

IL=1FLAG-10*IH 

IF  (  IL.EQ.6)  o(j  TO  30 

IC0OE=53 

IF  (lL.Lu.2)  lCGut=73 
IF  (IL.Fw.J)  KjO  t  =  73 
lX=(X-2.  il^XL 
I  Y  =  ( Y~ 2.0) *Y  L 

CALL  GP'JTI  ItL.lwOOE.lX.lY) 

1EL= I EL+1 

IF  (  IL.LT  .2  )  u;.  TO  30 
IF  (  IL.^T.4)  b_  10  3  ) 

IF  tl.CH.U.l)  GU  TO  30 


£;•  -**r 


It-  (  CLAb(  IH)  .1  J.  1BLANK  )  GO  T  J  30 
IF  (CCA0(lt-iI«.4r«'.j|  GC  TC  10 
CALL  GPUTI  TFL.Uh.-30,  Ji 
IT1ME=CVAL< I H I 
IT  lMt  =  HPMNS  (  IT  LIE) 

CALL  GCHA( ItNT  ,  IEL*1. 0,1,3  ) 

CALL  CULT 

WP IT  U 1 5, GOLD  I  TIME 

900  FORMAT  113) 

IEL=IEL+5 
GU  TO  20 

10  CALL  GPUTtIEL»H4,-3G,0) 

CALL  GCHAI  IFM  *  I  EL  1  *') »  0*  L  ) 

CALL  bilLT 

«Kll E ( 15,901 )  CLAiV(iH) 

901  FORMAT! II) 

ItL=lEL+3 

20  CALL  GSTT 10,0) 

CALL  GPUTUEL,  1760,0,1  ) 

CALL  G2UTULL  +  1,73, IX,  IV) 
1ELMEL+? 

30  JEH  IH)  =  IEL 
40  RETURN 
END 


** 


C  CGNTuUK  DRAWING  (GCCNTRl  —  ACM  ALuGRI  THM  531 
C  SEE  ACM  LISTING  Elk  EXPLANATION  AND  COMMENTS 

SUBROUTINE  GCuNT R ( Z. NP Z, NX ,NY,CV,NCV,ZM AX, BITMAP, DRAW) 
PEAL  Z(NKZ,1),CV(1) 

I-JlcbEP  BITMAP  I  1  ) 

INTloER  L  1  (  4)  ,  L2  (  4  )  ,  l  J  {  2) 

INTEGER  11(2), 12(2), 13(6) 

REAL  XINT(4) 

REAL  XY ( 2 ) 

EWUlVALENCL  <L2l  1  )  ,  IMAX  ),  ( L  2  (  2 )  ,  JM  A  X I  ,  (  L  2  (  3  )  ,  I M  l  N  )  , 

-  (L2(4),JMIN) 

EQUIVALENCE  <lJ(l),l!,  (IJ(2I,J) 

EQUIVALENCE  (X Y( 1 )  ,  X)  ,  (XY(2),Y) 

C 

DATA  LI  (3)/-l/»  LK4I/-1/ 

DATA  11/1,0/,  Ic/l,-l/,  I3/l,0,u,l, 1,0/ 

L 

LI ( 1 ) -NX 

LI <2)=NY 
DM  AX-=ZMAX 
X=  1 . 0 
Y=  1.0 

CALL  DRAW ( X , Y , t , l V } 

(CU.-  =.MAXO(  1  ,MI  N0(  1NT  (X)  ,NX  )  J 
JCUR  =M  AXC ( l.MIN  )(INT(Y)  ,NY  )) 

CALL  EIIL0( BITMAP, 2*NX*NY*NCV) 

IRKE  Y=0 
10  I=ICUP 


i 


♦ 


y  **. 


J=  J(.UK 
^  I  >\  AX  -  1 
IN  IU  =  -  I 
JMAX=J 
J  M I  r  i = — J 
It)  II-  =u 

•>)  NX  I  o'  l  «=  I  JI  r\  +  1 
K  =  NX  1  0  I  •- 

It  (NXItUF  .GT.  j)  fi  X  I  J  J  R  =.) 

AG  1=1  Aiib  (  1  ) 

J=  1  AoS  (  J  J 

IF  (ZI I, J) .GT.3MAX)  GU  TU  I4u 
L=l 

Vi;  IF  IIJID.iA.LHUI  GO  TO  Ijj 
II  =1  +  1 1 (L  > 

JJ=J+l  1(3-1) 

IF  IZt I  I, JJ).GT.GMAX»  GC  TC  13 o 
ASSIGN  100  TO  JUMP 
t  J  I  X  =  1 

Ir  <  Ij(  2-L).M,  .1  »  '.I  TO  A  ) 

1 1 =1-1 l ( 3-L) 

JJ=J-I1(L) 

IF  (Z(  I  I,JJ).GT.l>MAX)  Ju  TL'  10 
11=1+12(1) 
oJ=u+l 2(  i-L I 

It  (  ..  (  I  1  ,  JJ)  .1  T  .0,-UX  )  1X=0 

t  u  if  (  I  J(  3-1  )  .Gi  .Ll(  3-L)  )  GU  10 
SO  1 1  =  I + 1  1 ( 3-l  ) 

JJ  =J+ I  1 ( L ) 

IF  (x(  II, JJI.uT.DMAX)  GO  TC  90 

it  (/(  i  +  l»J  +  )  )  .LI  .UMAX)  uU  f  u  j  U  Pi  P ,  (100,  230) 

‘-’ll  I  x=  1  x+  2 

Gu  I1  JUMP,  (i’j  ,  2  3  i  ) 

00  IF  (  IX.  LG. 3)  GL  TC  130 

If  (  lX+IBKLY.Lw.O)  GU  TC  13o 
1 1  =  1  +  I  1  (  L  ) 

JJ=J  +  1  l  (  J-L ) 

2 1 =2 l  1  *  J ) 

22=211 i , JJ) 

nu  120  i c  v=  l , ncy 

IF  (  IGCT(ttnMAP,2*(NX*(NY*(ICV-l)+J-l»+I-l)+L).;it.J)  GU  T G  12o 
If  (CV(  ICV)  .  Ll.AMINI  (21,  un  u0  TO  110 
IF  (uV<  ICV).Ll  .AMAXKZl.ZZH  GO  10  19C 
U.i  GALL  MA-X1  (ol  I  P.mP,?*  C  MX  *  (NY*(  UV-  1  )  +J-1  )  +  I-l)+L  ) 

12.)  U.MINUL 
1  3u  L  =  L  + 1 

IF  (L.Lt.2)  Gu  TO  ‘30 
140  L=  MODI  ID  Ik  ,  2  )♦  1 
1 5u  If  (lJ(L).Gt.Ll(K))  Gu  TU  17U 
I J(L  >=I J( L)  +  l 

If  (  I  JU  )  .  GT  .L  _ ( R )  )  G.  TC  loj 
uO  TO  40 
160  L2(K)=IJ(L) 

I0IR=NXI0If> 

IJ<L)=ISIGN(  I J ( L  )  ,L l ( K  )  ) 

go  in  30 


i 


I 


\ 


••at-  •* 


1  70 

1  HO 

190 

2  00 

lu 

2  20 

2  30 

240 

2  50 

2  60 


I 


IF  (  IOl>*..EO.NXIOIt’l  GO  Tu  loO 
N  A  10  1 1\  =  N  X  1  D  I  F  +  l 

IJ  IL  )  =  L1 ( K ) 

K=NX10IP 

L=3-L 

IJ (L )=L2 l K ) 

It-  CNXIDIF .GT.3)  N  X 1  0 1  F.  =0 
Gl  10  150 

It-  < 1BKFY.NE.0 >  FLTU'-'N 
IbKE Y= I 
Gu  TO  10 
1  fc  OGE  =  L 
CV  AL  =C V (  ICV) 

ir  ux.ra.n  iegu  =  ieuge+2 

IF  L  \G=  2  + 1  BKt-  Y 

XI NT (IEDGEI=(CVAL-Zl)/( 22-21) 

XY(L)  =  FLGAT( IJ  <L) >+X I NT IIECGfci 
XY ( 3-L ) =FLO AT ( IJ(i-L) I 

CALL  NAHM  (  Bll  MAP,  2*  (NX  *(.4  Y*<  l  CV -1 )  +  J  -  i  )  +  l~  1 )  +L  I 

CALL  Ut' AW(X,  Y.  IF-LAG4-I0*  ICV.CVi 

IF  (IF  LAG.  LI.  4)  Gl  TO  210 

ICUPM 

JC UK=J 

GO  TO  20 

Nt  -1 

IF  (  I  EDGE. LT. 3)  GL  TO  2  20 

1= 1  -  13 ( I luGL I 
J=J-13< IEOGE+2) 

DU  2  50  K=l,4 

IF  (K.EO.ltOGE)  GO  TC  250 

I  1  =  i  + 1  3  U ) 

J J=  J  +  I  3  I K  + 1 ) 

Z  I  =  l(  IltJJ) 

1 1=1+131 K+ 1 ) 

JJ  =  J  + 1  3 ( K  +  2 ) 

Z2=Z l 1  I , JJ) 

IF  (  LVAL  .Lt.AMlN  UZl  ,L2J)  GC  T'J  2  50 
U  (CVAL.bT. AMAX1  (Zl  ,Z2>  )  00  TO  25b 
If-  (K.et.ii  GO  TC  2  30 
IF  (K.NE.4)  GO  TO  240 
ZZ=Z1 

I I  =  Z2 
Z2=ZZ 

XINT(K)= (bVAL-Zl) /( Z2-Z1 > 

N  I  =  N I  + 1 
KS=K 

CONI  INUE 

IF  (NI.L0.2)  GO  TO  260 
KS  =  5- 1  EDGE 

If  (XINTI3) .LI  .XINT (  11)  GO  FU  260 
K  S  =  3  —  [  fc  <JG  t 

IF  (KS.LE.OI  KS=KS+4 

L=KS 

IF  LAG=1 

ASSIGN  280  T(  JUMP 
IF  (KS.LT.?)  bU  TO  ?70 


I 

I 


\ 


I=I+I3(KS» 

J=J+I3(KS+2l 

L=KS-2 

270  IF  (IGtl<airMAP,2*(NX*(NY*(iC,V-n+J-IH-I-Ll+L).eC>.0)  GO  TO  60 
IFLAG=5 
G(J  7  G  290 

°eu  IF  (1X.NE.0)  IFLAG=* 

2 So  IcDGE=KS*2 

IF  l IEDGfc.GT.4 )  IL.JGC=  ItOGE-4 

XlNT(ItOGE)=XiNT(KSl 

Go  TC  2oO 

END 


» 

» 


* 


-*  «*“ 


SUBROUTINE  F  ILLOtdl  T  MAP.N) 

INTEGER  BIT  MAP  til  *  N 
DATA  N8PW/15/ 
lGCP=N/NbPW 
NbLW=MOu!N.NBPWl 
U  (LGCP.tU.01  Go  TU  20 
DC  10  1  =  1*  LUUP 

BITMAP! I  1=0 
10  CONTINUE 

20  1  f-  t  NBLW.NE  ♦;  I  BITMAP!  LCGP+1 1 =MCD 1 31 TMAP ( LOQP+1  ),  2**1  NBPh-NaL*)  1 

Pi.  TUP  N 
END 


[  >  .  yj*  ' 


\ 


ffl  * 


iUBKLiUT  IN£  M AT  K  1(  61  TMA  P  ,N) 

INTEGER  BITMAP l i),N 
DATA  NBPW/15/ 
fJrtOP  U-  ( 5-4 -  1  I  /f  j  Pn 
1 1  =*‘H;b  ( i4”  l  fC*  6PW  ) 

1=  2**(NI'Pft-NBl  T-l) 

BI  TMAP  (  NWGPD+1  l  =  BI  TMA PI N*0 RD+ 1 )  +  1*1  1-M001  BI  TMAP  (  NWQRD  <■  I  J  /  1 ,2)1 

RETURN 

END 


(-UNCTION  I ULT  (  13 1 T  MAP  »N  ) 

INTEGER  BIT  MAP (  1  )  t  N 
DATA  NbPW/ 15/ 

NWO  0=(  N-ll  /  NO  Pn 
No  I1=HUO(  N-  I .  N  BPta } 

I  d  E 1  (  Oil  MAFItMlnUK  J*1  J/2**(NbP*»-NB  IT  -  1)  ,2 

PE  TURN 

END 


SliB-H’UT  I  Nc  ONcT-l 

CUMMCN/PVRLAY/O VLYKYI 51 
CuMMON/  tlkANCH/jRTURN 
LOGICAL  OR  TURN 
C>.4Ml  N/ATT/I  ATT(  121 
CcNnCN/SINGl  F/uP Tk.HLP  f? 
I.mTFGLP  OVLYK.Y 
INTFGER  OPT  R  *  F IL  PTR 
INTEGER  UMTPTR 
t VLYKYI  1 J  = 1 
lAlT (11=0 
OR  1UR.N=. FALSE. 

IF  (I  AT  Till.  RE..!)  OF  TP  l  j 
CALL  SELUNT (UNTPTR) 

IF (DRTUPNI0VLYKYI2) =0 
IF (DRT URN)  RETURN 
UP  T r'  =UNTP  T t; 

CALL  HlLSJjIUOTt'TR  I 
Sc  T  JSf. 

END 


SUBROUTINE:  HIlSOSIUnTPTR) 

COMMUN/MDF ILE/MGF!  3000) tMUFMAX 
U)MMG.M/LvhLAY/LVLYXY(5I 
Cl  MMCN/SCR7  C  H/  S !  OF 3  (  81  ) 

01  MENS  I uN  1/18  YUiOl 
INTEGER  UVLYKY 

INTtGEP  X,Y,X2,Y£.X‘«,Y4,  SICES 
REAL  Ml  NS  t  MAXS 

INTEGER  si DEg,  GOP 7  R  ,  EN D IH. P  TR 
i  i'J  (fcv.t.K  UK T PTE 

DI  SI  I  1A,  IB,  IC,  lul  =  jJt.I  ( FLU  A  I  (  (  lA-ICJM  IA-IC  J+1IB-1  ))*  I  I  3-lJ)  )  ) 
SLOPE!  Jl»  J2)=FLf;AT  (Y-j 2  I/FLOAT (X-J1I 

LFN= I 50 

X=Ml)F  (O'vTPTRi-4  ) 

Y=MDf  (UfUPTr  +S  J 
K=  Z 

SIDES!  I  )  =  0 
OH  PI  R=  1 

50  0:IPT  R  =  MDM  CHPT  R  ) 

If  (MLFiGHPTF  ).L  j.  .)GC  T)  16.) 
if  triLf-  (  CHPI  R-f]  ) .Kfc.5 IGu  TO  GO 
1HPTR=M0F(UH?TR) 


/ 

/ 

/ 


IoWF  =  I  DU  (  X.  V,  MDF  {  I  HP  1 R  +  3)  ,  MOF ( I  HP J  KP4 )  ,Ml)F  I  IMPTRpS)  « 

+  MUf  (  I HPT P  )  I 

lr  I  t  S -I3  •  L'O.  <3  >  GL  ID  bu 

EML)1H=MDF( IHPTR) 

PTP  =  I HP'  T°  +  7 
I  HX=  MoF  ( P 7  f  ) 

I.lY=M.)F  (PIP  H  ) 

IF  ( IHX.EU. X) IHX=IHX+  L 
IF< IHY .EO.Y) IHY  = IHY  +  1 
Mi  NS  =SLCPE  (  IHX, IHY) 

MAXS=MINS 
Mi  INS  X=  I  HX 
MI NSY= I HY 
M\XSX=1HX 
MAXSY= IHY 

70  PTR=PTR+2 

IF  (PTR.Gc.E.NDlt-)GG  7  G  i  7j 
IHX= MDf (PTK) 

IHYaMDF ( PTR  +  i ) 

C  THfc  FOLLOWING  ALLEVIATES  INPINITc  OR  HORIZONTAL  SLOPES 

IF ( iHY.EU.Y)  IHY=I HY+  i 
IF ( IHX.EO.XJ  IHX=lHX+l 
SX Y=  SlriPL  (  1HX,  IHY) 

If  ( I  SOR.E.J.4.1  K.  ISQP  .E0.8I  Go  TP  7t> 

IF  (SXV.LT.MAXS):»U  TO  72 

IF ( SXY.EO.MAXS.ANO.OI ST(X, Y  ,  IHX , IHY ) . LT . D 1  ST ( X , Y , MAXS  »MASY )  ) 

♦  GO  TO  70 
MAXS-SXY 
M A  X  SX  = IHX 
PIAXSY=ihY 
Gj  TO  7u 

72  IFKSXY.GT.MINSI.OR. 

+  ( SXY.EQ.MINS.ANU.OISTt  X, Y, IHX , IHY) .GT  .DI  ST  IX»Y,MINSX,  MINdY ) ) ) 

+  GU  TO  70 

MI N  o  =  S  X  Y 
M i NSX= I HX 
MINSY=IHY 

»  GO  TO  70 

C  I1NJ  LEAST  POSITIVE  AND  LEAST  MEG  AT  I V  t  SLOPE  FOR  WHEN 

•  C  ISOk=l,  01  I  SCIR  =  2 

7‘j  If  iSXY.Lfc. <>)(*.'  fO  76 

IFMSXY.GT.MAXS.ANO.MAXS.GE.Ol .or. 

•  (  SXY.EO.MAXS.  ANO.  01  ST(  X  ,  Y  ,  IHX  ,1  HY)  .  GE  .DIST  (  X  ,  Y  ,MAXS  X,  MAXSY  ))  I 

♦  GO  TO  70 
MA  XS  =  SX Y 

|  MAX  S  A= I HX 

MAXSY= I HY 
GO  TO  70 

« 

7b  IFU  SXY.LT. MINS. AND.M INS. LE.O)  .OP. 

♦  (SXY.EO.MIUS.AIO.OISTI  X, Y , I HX , I HY) . GE .0 1  ST < X » Y , Ml NSX , Ml  NS Y ) ) ) 

|  *■  GO  TO  7!) 


« 


f 


MIN5  =  .S  < Y 
M.INSX=1HX 
MINSY=  IfiY 
GO  10  TO 

THE  POINTS  WHEkl  THE  SUES  uF  THE  HILL  AND  THE  INNLF.  HILL  <Ui  jOUE 
HAVE  tiEtN  FUJNO,  NAMELY,  A  Aa  ■>*»  C.AXS  Y  Ariu  M I  JoA  ,  .1 1  i  _>Y 

IV..'  S10LSI  1)  =  310ESI  1)+1 
X2=0 

IF  ( I  SQR.tU.2.CiR.  ISQR.L0.4.CR.  ISCR.tQ.9  .UR  . 1 5UR . EQ . 1 J I  X 2= 1 j2 A 
Y2=A200u 

YT  cMF=FLoAT  (HAXSX-X2  )  /MAXS  ♦  FLU  AT  (  MAXS  Y  I  +  .  5 

If  (YU  -IP,  LI  .  32  0jU.  .  ANJ.  YTE  MP .GT . -32000 .) Y2= YT IMP 

IF  (YTtMP.LT  .-32  100.  )  Y2  =  -32vJOO 

CALL  T T LEGS ( MAXS X,MAXSY,X2 , Y2 , 1 , 16 , I AR Y ,L cN ) 

51 Ofc S( K  )  =MAXSX 
SI JfcS(K+l)=MAXSY 
SIucS(K+2I=IA- Y  ( *>  i 
SlL>FS(R+3)=lAKY(o) 

K=K  +  4 

X<*=1023 

IF ( I SOR.LO. I .C  R . 1 5 JR . 1 0  .4 . CR . I SQR .EU • 9 . OR . I SQR . EQ • 1 0 1 X4=0 
YTtMP= FLOAT (MI  ,*$X-X4  )  /  R  INS  +f  LU  AT  (  MI  NS  Y  )  +.  5 
Y  ■*=32o*tO 

IF ( YTEMP.LT . -2000. . AN J. YTERP.GT .-32000. I  Y4  =  YTEMP 

IF (YTEMP.LT. -32000. >Y4=-320OO 

CALL  TTLtGS(MiNSX,MlNSY,X4,Y4, I. 16, 1 ARY ,LtN ) 

sioesiki  =  minsx 
SIDcSI K+l »=MIN j Y 
510FS(R+2I=IAPY{5) 

SI0LS(K*3)=IAF  Y  C  o  > 

K=M-4 
OU  TO  50 

130  SIUFS(K)=-1 00 
PL  TORN 
END 


bliuki/in  I.Mt  UNCTH2 

COMMON /S  INGLE/ URTR  *E ILPTR 
CUMMQN/GVkLAY/CVLYKY  (  5 ) 
INTEGER  UVLYKY 
I  N  Tt  GL  s  URTP.r ILPTR 


S'  .me 


l\ TE GCR  UNTPTK 

UVLYKYI  11  =  1 

OV  LYtCY  (  2  )  =  1  7 

UV  LYKY ( 3  I =1B 

UNTPTR=U?TR 

CALL  i)T  CWT  -  (Ui':TF'7  R  ) 

Rfc  TUt-  .i 

ENl) 


S 


jUtir.uUTINc  OTCtsTM  UNTPT3) 


C  Tti  l  i.  SUBPi'JTIGt  CONSTRUCTS  JtT^cTibN  CONTOURS  FUR  A  GIVEN  jMT  GY 

Ul.  TH  T  i-i  i  Uu  .'I.'**  F  ni-  The  UNI  I  MaY  SUE  ALONG  72  LI,LS,  EACH  5  uLu.iLd 

L  At' A1  jv  At'.  )  I ri u i\  LwNNLd T  TNG  Tift  FN'J  POINTS 


CDKMON/MDF  ILE/M0F<  i  t')  ))  ,MOFMAX 

CUMMLi.m/l  ISPL/luPLI4900),ItRA 

CuMMCN/ATT/l A1  F<  1 2  I 

l.  mml N/c  vklay/i  vlyky  <  5 ) 

i  OMUL-  >|/  SC  -<LtN/  jl  ZL 

CuMNun/SL  FT  C.H/  SIDES!  31  I 

Cl  MW  U  IS  CbNTtR 

INTLGt*  CtNTeS 

INTEGER  SIOFS 

I..TlGlR  CoOl,.  T*N,l.VLYKY,S  I/L.  JivTPT  R 
1  ni:S(r  JSI/F  • U i YPC  ,  uTNU/l 
UlK.-.NSll  IS  DC. I  r  x<  >,  +,  2  I 

01  ML  NS  1  LN  PKMTX<3,4,2) 

DI  MENS  ire.  I  AkY  (  15 J)  .  1NTAEYI  5j 

DATA  P  *  NT  X  /  0  •  »  0  •  ,  m  *4  8  ,  •  75 ,  l«18,»4ti,3»73,l«18,»  48  f  3«  75  r  I  •  l  ir  •  4  it  t 
4  24*1.37,. 3  9, .24, 1.5*.47,. 19,1. 87, . Sv,  .Zt/ 

DATA  DC  'IX/  ...  o,t. 75*  1.13, .48, ii.  75, 1.18, .43, 3.  75,1. Id 

4  0»,0»,l»-)/.ll.6t>«2.39,l.J7,11.3S,2.G9,l.C7,  li.sb,  2«  >9, 

4  I  .  D  7  / 

CALL  GLMP (  1 1 30  «  1 1 

CALL  ..Nit  L 

CALL  aiUlll  DOy  ,  J5) 

r.HTd  l5,i;>Co) 

mm  FD  RM  AT  (  •  OtT  Ft  T  ION  CONTOUR*) 

CALL  oSCM 1001  ,bl 
WF I TE ( 15, 10011 

i  Ow.  I  fl  KM  AT ('PRESS  «t_lURN  ID’) 

CALL  «iSCrt(  lCui  ,fj) 
rtr  1TEI  15,  1  J.:2) 

1002  FORMAT ( 'SELECT  NEW  UNIT') 

CALL  LSAVt! IUPL, 11, 12, 13) 


It-  U  TSWI  1  »  .  tu.  u)  GO  TO  222 
IPTR-MUF (2)4-8 

NUMUTS=MJF  (MUF  (2  ) )  +MUKMDF  12  j4-l  > 


I 


o  r> 


221 

222 


JO  22?  I  =  1 » NJHUTS 
It  N  T  Y  =  1  74,.  +  l 
LX=KJF(  IPTK) 

LY=MDF  (  IPTR+l) 

USIZF=MDF< 1PTK-2) 

UTY  Pfc=MDF { IPTR-1  ) 

Mt;Vt.  =  MOF  (  1  PTk  +  3  )  +1 

I F AJ=JCMTX ( uS I  ZF  »UT YPE  , Ml V p ) * lu2 3 . /FLOAT < 5  I ZE ) ♦ . 5 
it  (]'  AJ.LT  .20).;,)  13  221 
CALL  GBEGC IfcNT Y,LX,LY> 

CALL  GPUT(6,l6OJ,IRAU,0) 
i PTP= I PTR+2 j 
C'_. NT  inuf 


uT  NJfc=  MJF  (  JNT2  ft  +  1  ) 
cnoE=i 
ObWN=73 
I  FL=  6 

H=  2v>  .*1  "i  2  3  .  /  F  L  t  ■■  A 1  (  SIZE) 

US 1 ZL-MDF (UNTCTP+2) 

UT  YP  E=  M OF ( UN T  P T  <  +  j  ) 

MOVE  =  MOF(UNTPI  R-*-7)  +  l 

PR=PRMT  X( USI ZE ,UT Y PE ♦ MC Vfc > *102 3 . /FLOAT < SI Z£) 
X=  MOF  (UNTPTR+4) 

Y=MuF ( UNI PT  F ♦ E I 

CALL  GBboJ  1  7')-  »i)OF  (  UNT  P  ft  t-4)  ,MjF  (  UNTPT-U5  )  I 

CALL  GPUnS.  17ou,0,0) 

CALL  (,PUT(6, 130,2.3) 

CENT£R=lAND(rtOF(UNTPTR  +  6)  ,  lt>) 


C  SELECT  LlLCR  ft.-'  THE  ,)E  TcC  T I  ON  CONTLOR 

IT  (UNTPTR. ui  .MGHMJf  (2  >  + 3)  )CUJL-0 
CALL  GPUT(4,140,5.CGDE) 

CALL  GPUT  I4*140»6»C0DE) 


JO  2  5>u  I  =  •  72 

AtiGLE  08  1 2c  6*  F  LU  AT  (I  )  ♦  •  04 
S=  S  INI  ANGLE) 

C=CUS< ANGLE) 

xi=pr*c*x 

Y l  =  PR  '  S  + Y 
I  X i  =  X l  +  . 5 
I Yl  =  Y  14. 5 

THE  FOLLOWING  COUE  FINOS  TFfc  tNDPU.1  NT  X2.Y2  WHICH  IS  THE  FoRTHtST 
POSSIBLE  THE  GIVEN  UNIT  MAY  SEt  ALONG  A  LINE  SEGMENT 

IK  XI  .GE.O.ANO.Xi.LT.  I  02  3  .  ANU  .Y  l  .  Gb  .0  .  AND  .  Y  1 .  LL  .  1 02  3  .  ) 

♦  Go  TO  2 OS’ 

IX2=X l 
I Y  2=Y  l 
Gt  TO  214 

20  V  X  ?- X 1 +H*C 


I 


Y2  =  Yl«ri*S 


inx?.Lt.).i  c,u  rij  210 

X  2=0. 

Y2=  Y  1+  (  X2-X  1 )  <•  S/C 
1KX2.1  E. 1023. I  GO  TO  211 
X2=lo2 3. 

Y2=Y1+ (X2-X1 I*$/C 
IKY?  .it  .u  .  )  GO  T  t  212 
Y  2=  0. 

X2=Xl+(Y2-Yl)*C/S 
lFIY2.Lt. 1023. 1GU  TO  2  13 
Y 2= 102 3. 

X  2  =  X  1  +  (Y2-Y  1  )  $  C  /S 

(  Oil  I  out 

IX2=X2  +  0.5 
I Y  2=Y2  +  0.5 

IF  (SIDES!  1  J.Lf  .ill  Go  TO  4  i,j 
IlNl-=SI  C. S  <  1 1  - c 
O:'  42’  1*.=  1 « 1  END,  <i 

CALL  MHtREX!  IX  l,  1Y1,  1X2,1  Y2.S  lots  (K  +  ll  ,  SIDES!  K  +  2)  ,  SIDES (K<-31 
+  SIDE  S( K+4)  ,  I  NT  ARY  ) 

IF (INT ARY (II.EG.UIGU  TO  410 
1X2=1  ''IT  Ac  Y  (  2  ) 

IY2=  I  .M I  Af  Y  (  3  I 

410  CALL  WHtPEX! IX1.1Y1 ,1X2 ,1 Y 2 , SIDES (K  +  5 I , S l UES ( K+6 ) , SIDES  IK +7) 
♦  SIDES(K+8)  .INTARY) 

IF  (INTARYU).Ett.0)G0  TO  420 
1X2=  I  MAc  Y(  2) 

I Y  2= INTAFY  ( i) 


210 

21  l 

212 

212 


420  CONTINUE 

430  1TYPE=IWPAMI(IX1.IYI,184) 

CALL  TTLEGSt I XI , I  Yl.lX2.IY2 , 1  TYPE, 184, I AFY,I5j) 
CALL  ENULGSI  IXl,IYi,IX2.IY2,IAFY) 

214  IEL=1LL+1 

CALL  GPUT!  IEL, DOWN  ,1X2  ,IY2) 

D(JWN=  53 
250  CONT INUE 

300  CALL  GFCN117 OOF 
CALL  GFCN(UTNUM) 

CALL  TIKECMNI.MLI) 

302  I  ATT  III =0 
CALL  GSTT ( 0,0) 

303  CALL  T I  Me ( MN2 , ML2  J 

LS  P=  (  MN2-MN 1 1 1200  j+  (  ’*  1 2-M  L  1  * 

IF (LSP.GT .300 1GL  TU  310 
00  304  K= 1,4000 

304  CONT INUF 

IF  (lATKU.EO.OIbU  TU  303 

lF(IATT(I>.EL.3t>.AND.lATT(3J.EL.30»oU  TO  999 


3U  CALL  1  1.1EI.-1M.VL1I 
CALL  Gt-UF  (  l  700  ) 

CALL  GEGF ( UTNUM) 

311  IAIT(1)=0 
CALL  GSTT(O.O) 

312  CALL  T  I  ME  I  '1N2 ,  riL2 ) 

LSP= ( MN2-MN 1 ) *  12000+ ( ML2-ML 1 i 
IF (LSP.GT.AC)GG  TO  300 
00  315  K= 1 • 4000 
315  CONTINUE 

IF  (I  AT  Til  ).E(J.O)Gt-  TO  r  12 

IFUATT(l)  .Nfc.36.CR.lATT(3).NL.30>uU  TO  ill 

999  CALL  GRESTIIOPL.il, 12. 131 
CALL  GLHPI  1,30.1/) 

CALL  GEGNI UTNUM) 

CALL  OFFSEL 
CALL  OLKSEL 
RETURN 
END 


SUBROUTINE  ENOLOSI  I  XL,  I VI,  I  X2 ,  l  Y  2 ,  I  ARY » 

C***  THIS  SUBROUTINE  wILL  REIJRN  IN  THE  VARIABLE  X2  AND  Y2  TrtE  COORDINATES 

C***  OF  THE  PUIN1  VkH  I CH  INDICATES  THE  ENU  CF  THE  LINE  OF  SMH1  ALONG  THFR 

(.***  CINE  SEGMENT  INDICATED  IN  ME  PARAMETe^S 

CO  MM  a,',  /  SC K E  t  N  /  S 1  ZE 

COMMON  CENTER 

INTEGER  CENTER 

REAL  LUSMTX.LE  N1 ,LEN2 

1NIlOL=  SIZE 

INTcoL-  TTYF 

INTEGER  Cl ,NT, PNTK, 1  ARY 

DIMENSION  LCSHTX <7,71 

DIMENSION  IARYI1501 

DATA  LOSMTX/8. , o. , 8. ,G.» 2D .»0.» 20. ,0. *.5, 0.*0.*0.»u.,0.»U.*0., 


R  J  •  v  i7b,Oa  ,d«,  #S,L,,0,,^r*,  i  #  ,  h  • , 

♦  I  i  •  4  •  4  »  2  5  4  J«  *  i  •  4  •  »  •  G  4  0  •  ,  ><  •  ,  •  4  ,  •  4/ 


Ul  ST ( A , B , C  »  D ) - S  w  R  T ( (  A  -  C  I  *  ( A -C ) + <  6-D ) * ( B-D ) ) 
I H  I L  L  =  0 

SC  ALE = 1023 ./FLOAT <  S I ZE  > 

XMIXl 
Y  l  =  I  Y  1 
X2  =1 X2 
Y2=I Y2 

1ARYL=5*IAPY(1 )+3 
PNTP.=  5 

IF  UANJIlfc,  IAkYI  SJ)  .Ew.  16»IhILL=-1 
CT  =T  TY  P  I  l  ARY  I  3  1 1 
NT  -  CT 


I 


LtM=Ll  SMTXIU  .CT)*  aCALE 

If-  { lENT  t  f'  •  EC.  lo  .  AN  J  .Cl  .EQ.1JLlN1=20*SCALc 

If-  i  L)  I  S T  i  X  l «  Y  t  *  X2 1  Y  2 1  .  LE  .Lt  X  1 .  ANO  •  I  Ak  Y i  1 J  •  EC.C  I  FCTUk.m 

I F  (  I  ARY  (  1  I  .  ho.  0  )  Gu  TU  200 

IF (PNTR.Gt. IARYL) RETURN 

100  XN=IAFY(PNTPI 

YiM=i  AR  Y1  PNJ  R+l  ) 

NT  =T  T  Y  Pi  1  AKYlPNlR+J)  ) 

IF ( (CT .GE. 5. AnC.CT .NE.6  ) .AND.i NT .EO .6 .UR. NT .LT. 5)1 1  Hi LL =1  HI  Ll+1 
IF(OIST(XI.YIiXN»YM).GE.LEMJGG  TG  200 
LEN2=LUSMTXtCT  ,NT) *3CALE 

If  t ( LGN2.EO.O. » .OR. iul 5T(X l.Yl.XN.YNI .GE.LEN2) I  GO  10  30  , 

IFilHlLL.GE.lJGf  TO  3D 

IEilHlLL.GE.2IGu  TU  300 

LEN1=LEN2 

CT  =NT 

PNTR=PNTR  +  5 

IF  iPNTR.L  I  •  IAE  YLJoU  TC  10  ) 

200  h=Ul ST i XI tY  1.X2.Y2 ) 

PATIOLENl/H 
IF iF  AT IU.GT.l.  JRETUPN 
IX2=Xl«-PATIC*{X2-XI)+.5 
IY2=YL  +  PAT IC  *  i Y2-Y  1 )  +  . 5 
f t  iupn 

30.1  1X2=  XN 
IY2=YN 
RETURN 

ENO 


SUBROUTINE  WHEREXI I A  I, 131,  IA2, IB2  ,  I  X 1 , lYi , I X2 , I Y2 , 1 NI AK Y| 

THIS  SUBROUTINE  DETERMINES  THE  INTERSECTION  OF  THE  LINE  SEGMENT 
I,U,I«L  IA2,Irt2  AND  IXI.IYl  1X2,  IY2.  IF  THE  TWO  Ll.Nt  SEGIt.uTS  Dj  ,  T 
C5-LSS  1NTARYI1)  IS  SET  TO  o.  IF  THE  SEGMENTS  CRUSS  AT  A  t>u  1  . 1  THlN 
INTARY <11  IS  SET  T!-  one  AND  THE  POINT  OF  INTERSECTION  Is  REluk,.SU  IN 
IN TAR Y ( 2 )  AND  INTARY ( 3 ) •  WHEN  THE  SEGMENTS  COINCIDE  iNTARYli)  IS  SEI  TO 
2  AND  THc  SEGMENT  JF  INTERSECTION  IS  RETURNED  IN  INTARY  2-B. 

DIMENSION  INTARY ( S ) 


fl  1  =  I  A 1 
A2=I A2 
B 1=  1  B 1 
B2=I b2 
XI=l XI 
X2= 1 X  2 
Y I  =  1  Y I 
Y2= I Y2 


\ 


Io  I  A 1  .L  I. .  AE  )  Gu  Tl!  -?.) 

A  T  E  M  P  =  A  1 
A 1  =  A  2 
A2  =  AT  BMP 
BTFM?=B1 
61  =  d2 
d  2  - 1’  T  LiV 

?i.  lb  tXi.LL.X?  )0>  10  30 

X1FMP=XI 
X  1=  X2 
X2=XTEMP 
YTFMP=Y  1 
Y1  =  Y2 
Y2  =  YTi_MP 

30  If  (  Al.oT.X2. Of,  .Xl.GT.  A2IG0  TO  999 
YMAX=AMAXilYl»Y2) 
b  H  AX  =  AM AX l ( 01 , fc2) 

Y3 IN=aMIN1(Y1»Y2) 

BM  I ni  =  A M 1  N 1  (  Bl »  B2  I 

If  (Bi3AX.LT.YMIN.CR.YrtAX.LT  .DMINJGC  TO  >99 

SOLVE  fOP  VERTICAL  LINES 
If  !Xl.Nt.X2)Gc  TO  2wO 
If IA1 .NF. A2  )G0  TU  150 
INTAkY ( Li  =  2 
INTARY ( 21 = I A1 

1NTARY(3)=AMAXI!8MIN*YMIN) 

IN  TAR  Y  (  4  )  =  I  A  l 

INTARY ( 5)=AMIN1(YMAX, OMAX) 

I  f  (I  NT  AP  Y  C  3  I  .  t  w.  I  NT  AP  Y  <  5IIINT  AP  Y  (L)  =  l 

RE  TURN 

150  Sl=( B2-B1) /( A2-A1) 

YINT*Sl*!Xl-Al)+bW.5 

If  IYInT.OT.LMAX.UR.YINT.lt  .8HIN.QP.YINT  .GT  .YMAX.0R.Y1N1  .LT.Y.Ilnl 
oo  TC  999 

INTARY  <11=1 

INTAkY (21=1X1 

INTARY!3)=YINT+.5 

RETURN 

200  IFIA1.NE.A2I  GL  TO  3.30 

INT  ARY ( 1 1  =  I 
INTARY ( 21=1 A1 
S2=( Y2-Y l 1/ ( X2-X 1 ) 

INTARY! 3 )=S2*(  A1-XU+YI+.5 

RF  TURN 

300  Sl*IB2-Bl»/(A2-Al» 

S2*l Y2-Y1 I / 1 X2-X1 ) 

If (SI.NE.S2IGU  TO  500 

CASES  HHEPE  LINE  SEGMENTS  HAVE  SAME  SLOPES 
If  !lBl-S2*AD.Nt.!Yl-Sl*Xl  IIoG  TO  999 


IN1A»V<  1  >  =  " 

1  TAKY  <?»  =  AMAaK  A1  ,  XI  ) 

It-  (A1  .GI.X1  1  I.MAPYt  31=3  1 
IF (Xl.Gt.AI I INTAPY( 3)=Y1 
INTAKY (4)=AMIN1< A2, X2) 

IF (A2.1T.X2 )INTAFY<5)=B2 
IF (a 2. LI . A2) 1NTAPY(5»=Y2 

IF ( l INI AF  Y ( 2) . EC. I  NT ARY (4)  I  .AND.  ( INTAKYJ2J. EQ. I  NTARY  I  51 ) ) 
*  INTA-Y(l)=l 
F  E TURN 

500  XlNT=(Bl-Yl+S2*Xl-Sl*Al)/( S2-S1J 

IFIXlNT.LT.Ai.  OF  .XIUT.GT.A2)G>j  TG  999 

IF  (A  INT.LT. XI. UK. X  INI  .GT.X  2  )oii  TO  999 

INTARYI  1  > -  1 

INTARY(2>=XINT*.5 

INTARYI3 J=Sl*X INT+B 1 -S 1 *A1  ♦  . 5 

RETURN 

999  INTAPY(l) =0 
Kc TORN 
END 


INTEGER  FUNCTION  TTYPICOUE) 

INTEGER  CODE 

TTYP=6 

IF  (CuUE.EO.OH  TYP=  1 
IF (CGOE.cU.ail TYP=2 
If  ICODE.EO.  16) I T  YP=  5 
IF(tOGE.E0.32)TTYP=3 
IFICaOE.£Q.I44)TTYP=4 
IF tCODE.E0.48)TTYP=7 
ct  TURN 
END 


SUBROUTINE  019 
CALL  JUDCT 
RE  TURN 

END 


SUBROUTINE  UUUCI 


C THIS  FlUTINt  FINOS  ALL  POSSIBLE  DETECTIONS  AMUUNG  THE  GREEN 

C AUJ  Hi .0  UNITS.  WHEN  A  New  dETECTluN  OCCURS  A  LIME  IS  UK  Em 


C -  L  I  V<  r1  €.  iHE  uN  ITS*  Tilt-  Cc  L!.  R  ^F  TIE  LINE.  C(  RRESP'-U  JS  1  > 

C -  T  >(  l  CtLuF  Cf  T  He  OElECTlwG  uNiT.  IF  JLTECTIGN  IS  -?  £  C I  ^  <ggAL 

l -  ThL  L  INE  IS  YLlLUft.  A  uETECTLD  J.tlT  IS  BLINKED  UNI  iL  II  IS 

C -  ONCE  AGAIN  UNDET EC  TED. lL EV l 

CGMrtUN/MJF ILE/MDF(  3000) ,MOFMAX 
ClMMCN/AI  T/IATK  12) 

COMMON/ i  vPLAY/CYLYKY(b  ) 

G-MMCN/lf  A.lCH/Or  TURN 
CUMMON/SINgLE/UPR.FILPTR 
CTjMMCN/DI  SPL/I  0PLI490O »  ,  IERK 
CuMMON/ SCREEN/ SIZE 
CLMMUN /SCOTCH/  Slots  (  81  ) 

ClMMUh/PRuBLM/  TI  Mt 

LloICAL  OCT  1 ,  JCT  L 1, OC  T  ;»l)C  1  1<: 

PEAL  MAXLGS 

INTEGER  CODE 

LOGICAL  SAME 

Lt.GlCAL  UPTURN »  Ot  T  EC  T 

IMEGEE  SIDES, LVLYKY.TTYP,  SIZE 

I.mTlvjEE  P/;»PY1,cX2,DY2 

INTEGER  UNTPTL,UNTPT2,UPTR,F1LPTP. 

INTEGER  UPTR82.UPK 

INTEGER  TIME,GSE£,GNSfcc*RS£L»RNSEE 
INTEGER  USIZE*UTYPE 
ulMLNSIuN  1  NT  ARY ( 0  I 

D,  MtfMSIC.Y  PRHTXI  3,  4,  2)  ,  DC  MT  X  {  3, A, 2), I  A^Yl  1501 
DIMENSION  lARYl(lbJ) 

DIMENSION  RAUIK2) 

OAIA  PkMT  X/u. ,0.  * • 48  »  3 .  75,1.  13,. 48 ,3. 73, 1.18, .48, 3. 75,1. Id,. 4  b » 

+  O  .  ,  o  •  ,  «  2  4  ,  l  •  3  /  ,  .  5  9 ,  •  2  4 , 1  «  5  ,  •  4  7  ,  .  1 9 ,  1  •  8  7 ,  •  5  9 ,  «  2  4/ 

uATA  j(  MlX/i).,U.«.9b«3.  75,  1, Id, .48, 3.75,1.18,. 48, 3. 75, 1.13,  •  4o , 

♦  0.,0., 1.0  7, 1  1.85,2,84, 1.07, 11.85,2. 84,1.37, 11. 8 5,2. 3 i, 

+  1.07/ 


LVLYKYI  1  I-Pl 

IMMJFI4)  .EU.oICALL  EVTINT 

I F  <  (  MOF  IHJI  (?)  +1  I  .Cw’.O  )  .OR  .  (MDE  (MJF  (  2)  I.Eg.O)  ) RETURN 
10  I E  NT  =  1900 

CALL  GSAVEIIDPL, 11,12,13) 

UP  TF =0 
SA  Mt-  •  Tt  UE. 

Kk,  UPTR  =  UPTR  +  1 

UP  TP  82-?** ( UPT  K-l) 

GS  EE=G 
GNSLE=0 
RSEE=0 
P  N  S  F  E  =  o 

Ui'iTP  I  l  =  MoEC2)  +  4+?0*IUPTR-l  ) 

CALL  Mil  SDSIUNTPT 1) 

SC ALE=lU23. /FLOAT (SIZE) 

MAXLOS *20,* SCALE 
IX 1*M0F (UNTPT 1*4) 

1 Y 1-MOF (UNT  PT 1 *5 ) 

USl/t-MDF  (  UNTP1 1*-2  ) 


r  o 


ut  vpfc=.-(f!F <  jntpth-j i 
i+;Vt  =  i'inKuM  PI  l*-7 1  ♦  1 
PK=PF«TX(  Jo  I  Zl  .JTYPE.ICVl)  *SCALF 
OR=OCMTX(USIZE  .UTYPE , HCVE » * SC AL E 
ITYP£  =  *1DF{uNTPTl+6  » 

NUMJ 1 S  =  MDF (MDF <2)  +  l ) 

UNTPT2=MOF(Nof  (  2) +3) 

M.  ~iOC  I  =  L  «  KU  -lUl  5 
UCT  1  =  . FALSE. 

JCT2=. FALSE. 

PCT1L=. FALSE. 

UC  T!E-=.FALit. 

IF  (  UNO  (MDF  (UNTPTl+lol  title)  .  NE  •  o)  DC  T1  1  =  .  TR<JE. 

IF  <  I  AND(MJF(UNTPT  1  16)  , I  82 ) .Nt . 0 } DC T l 2= . TRul . 

lX?=M0F(L>NTPT2*<f) 

I Y  2  =  MOF ( UNT  PT  2  ♦S  ) 
r  AD  I  l  (  I  )=Pr 
US  I Z  E  =  MDF ( UNI VI 2  +  2) 

UTYPt-MJF  (  U';TPT2  *-3  ) 

MGVE=MDF{UNTPT2+71+l 

RADII  (2  )=OC*TX(USIZE,UTYPE,MOVEJ*SCALE 
U3 SORT (FLOAT ( I X2-I X 1 ) * *2*FLC AH IY2-IY1)**2) 

IF  C’.Ll .(F ADil (TI  +  RADI I (21))  OCTl  =  .  TRUE. 

IKJCTlIGu  re  600 

IF  (D.ST.(*1AXLuS«-(\A0ll  (  l)FkA 011(2  )  )  )Gb  TO  7uG 

DETERMINE  IF  THE  LINE  SEGMENT  I X  1 , 1 Y l  1X2, IY2  IS  BLOCKED 
BY  A  HILLS1UE,  AMO  IF  St  THEN  BRANCH  TO  700 
!  F  (  S I  0  E  S  (  I  t.le.  >m;o  Tj  510 
I  t-Nt'  =  SI  OES  ( 1 ) 

PX1=FLEAT  (  Ixll  *-PP/l)*FLLAl  (  l  A  2-  l  X I  It. 5 
PY  1  -FLOAT (  IYI)  «-P5/D*FLCAT<  IY2-IY1 ) *.5 
DX2-FLA  AT  (  iX2)*h AD  I  1(2 )/0*FLCAT (1X1-IX2)  +  .S 
DY2=FLUAT(  I Y  2  I ♦RAD  11(2 ) / D*F LCAT ( I Y l -I Y 2  )♦ . 5 

Du  5C6  K=L  ,  ItN  ),4 

CALL  kihcF  LX(  PX  I  ,PY  1  ,  JX2.0Y2  ,  S  I  l)ES  (  *  + 1  )  ,  S I  DE  S  (  K  +  2  )  , 

♦  SUES(K+-3)  ,  SIDE  S(A  +  A),  IMAP  Y) 

IF(INTARY(1).NE.0)GC  Tu  700 
5U  5  CUNTINU£ 

51  o  UALI  TTLLNS(lXl,lYl,IX2.iY2, ITYFE,164,IARY, 15d) 

IF(DETICT(  IX1,IY1,  1X2,  I Y 2 , l ARY , RAJ  I  I) )DCT1=.TRUE. 

600  KADI  I  (  l  )=PRMTX(USI  ZE,JTYPE,  MOVE  I  *  SCALE 
RADII (2)=0K 

IMD.LT.(PADII(  I  URADl  I(2)J  ) OCT  2= .TRUE. 

I F  (  DC T 2  IG'j  1C  7<io 

C -  F  L  V 1 1-  S  L  THfc  LFJtP  CF  I  7  kY  IN  TH  t  ARRAY  IAPY1 

N3 1 Ak Y  l  I) 

)  I A° Yl ( l )*N 

IAFYH3)*IARY(3) 

IF  (N.FO.OJGi  TU  620 
|  IA“Yl(3)=i APY(5*N«-3) 


I 


I 


L>  V.  ■ 


•j2  0  K  =  1,U 

I  At-.Yi  l  5*K)  =  1  AH  Y(5*  (.\+L  -K  I  ) 

!  Ah  Y  1  (  -j*K+  1  )  =  I  A f ' Y  l  j*(.m+  i  -X)  ♦  1 ) 

IAWYK  K*5  +  3  )  =  I  APY<  5*(N-K)+3  ) 

620  CONTINUE 

IMocTfcCH  1X2, 1  Y2,  IX 1.  1 Y  1,  I  AKYl.P.AOII  )  )0C  T2-.TRUE  . 

lr  .  H  t  <  OCT  1.E  j.uC  r  1  1)  .  Ai\J.(  JC  12. t  J.  )Ci  12)  )  GC  TO  7v>; 

o -  LiTrcF  A  kc*.  Jtl  cLl  UN  uS  AN  fcOL)  UF  A  ‘J  E  T  cC  T  I  ON  HAS  oC  U  -  lj 

IF  <  (  JCT  1.  A  NO..  NuT.OCTl  1 J  .c  R  .  (  DC  T2  .  AND  .  .  NOT  .  DCT  1 2  I  IjaNl".F  ,Lj 
IFlDCTl.EJ.DCTLDGC  TU  7SJ 
IF ( .HOT. DC T1 IGu  TU  72u 

C -  ukF  LN(uP1«  l  ^Ffi-ClS  hFlU) 

I  Sl  t ■  =  I  OH  (  o  Si  t ,  102) 

MOF(UNTPT1+U)  =  IOR(MOF  l UNT PT 1+10)  ,1  62) 

MUF  (UNTPT2+16U  Itlk(M0f  (UNT  PT  2  +  16)  ,  JPTPB2 ) 

GU  TU  750 

C -  >«  ci  N  (  UPTt  )  n.J  LONGER  St  ci  «£L(I) 

72  ,  IDF  ( 'JNTPT  1  +  l  j)  =1  EXC  R ( M  CF  ( UN  T  P I  1  + 1 1/ )  ,132) 

MDF  (UNTPT2+16)=1EXGP(MCF(UNTPT2+16)  ,UPTRG2) 

GNSEE= ICR ( GNSEE , 182 ) 

I F ( MDF ( UNT PT2+l6).NE.0)CC  TU  750 

730  IF  (  DC  T  2  .  tw  .DL  T  L  2 )  Oc  TU  7  8-j 

!f( ,N(  T.DCT'JG  )  FC  76.) 

C -  KEO(I)  DETECTS  oREEN(uPTR) 

M0F(UNTPT2+10>  =  1UR  MDF  ION  TP  1  2+10)  ,  OPT  R02  ) 

MuF  (UNT  PT  1  +  16)  =  IGk  (  MOF  (UNI  PT  1  +  16)  ,  1  32  I 

f  jc  r  =  I  OR (R SF  t , 132) 

O'j  TO  7dU 

C -  K E0« I »  NC  LONGER  SEES  GkEEN(UPTft) 

760  MOF  (UNT PT 2  +10) = l EXCR( MCF (UNTPT 2+ 10 )  ,UPTR82) 

MDF  (  Oil  TPT 1  +  10)  =  1  EXCRUCF  (  UNT  PT  1  +  16)  ,182) 

P  in  J  t  E  =  I  u  P  (  1  j)  S  t  L  ,  I  a  2  ) 

780  IF ( .NuT . < ( UCTl. AND. .NUT. JC  Til). OK. ( DCT2 .AND. .NOT. OCT  12) ) ) 

♦  GO  TU  790 
GOOF =3 

IF ( CCT2.A00. .N  1  f .DCT12 )CUUt  =  0 

II  (UXll.ANi...  MOT.  OCT  l  l)  .AND.  (OCT  2.  AND.  .NOT  .OCT  12  )  )  Cuut-  1 
CALL  G8£o(  IcNT, I  XI,  IY1 J 

CALL  GPUT( 5, 1760,0,0) 

CALL  GPUT(6»130,2,3) 

CALL  GPUT( 7,53, 1X2,  IY2  ) 

CALL  COLO''  tCGDc  ) 

ICNT= IENT  +  1 

790  UNTPT?=UNT PT2+20 

800  CONTINUE 

826  IF (GSLt.ME.O)CALL  S T cV NT ( T (Me , 1 , UPT R , GS EE ) 

IF (oNSFF.NL .0) CALL  STFVNTI  1 1  ME , - 1 , UPT R , GNSE E ) 


ll-  (PSbL.Nt.G)CAiL  sTFVKT(T  IHif  >  i  ,  OPT  R ,  Kj  Ec  ) 
rfiKMSd SIEV-lll  IIMt,-2,UPTK,R,SiSE£l 

830  IF  IUPTR.LT. MDF ( MUF (211  )  GC  TC  100 
CALL  bLKUTS 


If  IIATT(i).Nt.T«iJG:'  T'1  5J0 
If  (1  ATT (3 » .1 C.3u) JRTUf N=.T ?U~. 

IF  (DKTUKNI GO  TO  loOO 
IFII ATT(3).EQ.27>FlLPTK*-l 

IF  (jAMFIoC  T  P  l.'-.) 

CALL  LrtMPS(t>4,.'),0,  3  ) 

90  5  IATM  11*0 

CALL  GSTTIO.Ul 
910  CUMTINUF 

IFIlATTIlI.FQ.jIGC  TO  910 
IF ( 1ATT (1  I .NF.^fcJuJ  TC  905 

IF  1 1  *TT C3I.GT. l.ANU.IATTl 3 ».M£.3o»GC  TO  905 

IF  II  ATT (3) . EC.  30)OATURN=.TRUc. 

1000  CALL  oKESTIIDPL.il, 12. 131 
I  ATT  (1  )  =0 
CALL  OSTT(O.O) 

CALL  LAMPS! 72, 3,  i,0) 

i*  c-  T  U  r  N 


LOCI  CaL  FUNCTION  UEltCl (XI ,Yl.X2,Y2, 1ARY.RA01  II 

THIS  ROUT  I  NL  FINOS  IT  A  UNIT  AT  IXi.IYL  WITH  A  RPCSfcNCE  RADIUS 
OF  MOIKtl  CAM  SlF  A  UNIT  LOCATED  AT  1X2,  1Y2  WITH  A  Oi-.T  i:C  T  ADO 
KAlTluS  IF  RAOI  1(2).  LLFVl 

CuMMON/SCREEN/Sl ZL 

COMMON  C ENTER, ONHIL 

LOGICAL  ONHIL 

FtAL  l UjMT  X , LF  N 1 , L  CN  2 

MTtuLC  S  I  Z  L  ,  T  rYP,CT,NT,FNTc,IA>-  Y 

iNTuOfcP  XI, YI, Xt,Y2 ,XN, Yn, ClNTCF 

01  MENS  ION  IARYII5J) ,LOSMTX(7,7) 

DIMLNSION  RADI  1(2) 

DA  I  A  LoSMrX/rt.,').,iJ.tv'.,2T.,  I.*20.*u.  f.3,U.*u.*-}.  ,u«,u.,s/.,  *  «  , 

+  *j  •  ,  \  /  .  *  <.*>.«*  i  .  *  .  2  S  f  tJ*  ,  •!)( 

01  ST  (IA,IB,IC,  10)  =  SQRT  (  (FL0AT(IA-ICn**2+(FLCAT(IB-IU  I)**!!) 


IARYL=5*IAPYC 1  )  +  3 
SC ALt=i 023,/FLu AT  ( 31/t) 
P  xTt.=  b 


U  -1  TYtM  l  M'Ym  » 

NT  -C  T 

J=GlST(Xl,Yl,Xc,Y2) 

CENT  fcK  = I  AND  ( 16 • 1  AR  Y  ( 3 )  ) 

IH1LL=0 

C  IF  Mr.:  INTERSECTIONS  THtN  i><  II  790 

If  <  I  &-  Y  (  1  )  . EQ.OJGU  TO  790 

C  1  GNU*  t  INT  EXSECT  IuN3  WHIcH  OCCUR  WITHIN  PRESENCE  Cl  RCLt 

?0  XN  =  1  AF  Y  (  PNT R  ) 

YN=IAkY(PNTR*1  ) 

,\T=TTY  PC  l  AFY  ( I'NTr  )  ) 

IF  (OlSTCXl.YItXNfYM)  .GT.RAC1H  l>  )GU  T  U  9u 
C  T -I*  T 

PNT  R=PNT R  *5 

IF (PNTR.LT. Iak YLluJ  To  20 

GO  To  790 

90  LLM=LiSMTX(CT  tCT) -SCALE>  HAJil(l) 

IF  (CT  .01"  .9  I  I  h  1  Cl-—  1 

If  (CfcNTtf  .cC.lt.  AN  J.CT  .  £Q.  l)LcNl=2u  .  *SC  AL  E+P  ADI  1(1) 

CEuTLt  =, 

If  (uISKXI  ,Yl,XN,YN)  .GT.LENl)  Go  Tu  800 
IF  (Cl  ST  (  X.«»Y.'i.  A2.Y?)  .LE.R4LI  1(2  )  )«U  TU  6lo 
L.-NI=Lf  Sf.IX(Cr,M  ) -SCALE+R  4UI  I  (  1) 

PNT-  =r»\TP«-i> 

If  lPNTk.Gfc.lAl  YLIoG  TC  8u0 

C -  JUMP  THRU  TriL  T  P  ANS  IT  I  CN  MATRIX 

li.  .  /■•=  l  AH  Y (  PflTK  ) 

Yu*  l  Af  Y  (PNTf'+I  ) 

11  =  01 

M  *T TYP( I AR Y  t  PNTR  +  3 ) ) 

IF  (UlSTlXl  ,Y1,XN,YN).GT.L£M)  GO  TO  800 
IF ( D l ST ( XN • YN«  X2 • Y2 ) . LE .KADI l ( 2 ) ) GO  TO  810 
If  Cv.1  .M  ,4.ANu.r»T  .LE.  3  I IHl  LL  =  I  HILL«-1 
if ( iMiLL.GE.  .0)Cu  TO  90  U 
PNTF  =  PNTk  +  8 

LENl=LuSMTX(CT  *NT ) *SC AL  fc+R  AU  1 1 1  l ) 

IF  (JlSTCXltYItXNtYN)  .GT  .Lfc  Mi  GC  TO  800 
IF ( 0  l  ST ( XN . YN«  X2»Y2 ) . L  E .RA  0  I  it  2) )GU  TO  810 

GO  IC  100 

79  0  LEN1=L!  SMTX (CT .NT) *  SCALAR ADI  I ( 1) 

IF (CENTEP.cO.l6.ANO.CT.EO. 1)LEN 1  =  20. *3CALE+R ADI  I ( 1) 

800  IF(0.GT  .(LENl+RADl  I  (2)  )  I  GO  TO  900 
810  QETLCT=.TRUE. 

HE  TURN 

900  CE TECT=. FALSE. 

RETURN 

ENl) 


SUBKUUT  INC-  Sit'  VNTl TIME.EVENT ,JNIT1,UNITS2  ) 

THIS  SUBfUUT  INE  STUPES  EVENTS  IN  THE  EVENT  FILE 
E V t N T  =  1  OtNLiTtS  THAT  UNIT!  DETECTS  UNITS2 
EV  t  NT  -?  UENi  TS  THAI  u.mITI  IS  DETECTED  BY  UNITS2 
*>HLN  T Ht  NJlbcHS  ARE  .mEnATIVE  THE  EVENT  HAS  JUS1  END 
Cl’  MHuK/MuF  I  LE/  HOF  (  iJwj)  .MdFrtAX 
IMPLICIT  INT  EtiER  I  A-Z ) 

EP  TF.  =MUF  ( MDFI  4 ) ) 

Hiyf(EPTRJ  =  TIKE 
MUF ( EPTP+1 J=EVENT 
MUF( EPTR+2 1=UN II  I 
MJFt  EPTP+3)=UNITS2 
MDFI EPTP  +4 1 =0 
MO  FI  MDF  (  4  )  »  =  EPTR+i> 

Mi.) I  (  3)  =£  PTP+S 

KE  TUR  N 

END 


SUBRUUTINE  020 
CALL  SET  1  ME 

RETURN 


SUBROUTINE  SET  IME 

COMMGN/MUf  1 LE/MGFt  3000  J  tMJFMAX 

CGMMGN/OVRLAY/CVLYKY ( 5 ) 

COMMON/ PRC 3LM/ PI IME 

COMMON/ 3F  ANCH/ UPTURN 

COMMON/  r  PL  A  Y/i  NOEX  t  I  NT  R  VL  (  4  J  ,  ENOT  I  K 

IMPLICIT  INTtOcR  (A-ZI 

LOGICAL  URTUPN 

LOGICAL  EV ENT  S 

C  ***$  ALLu»j  THt  USER  1 0  RrSET  THE  PROBLEM  TIME  TO  AN  LAI  L I L  VALUu 

IF  (iMUE  (4)  .  EC.O  )  CALL  EVTINT 
EPTk=MOf (4) 

EV  ENTS= .TRUE. 

IF  (MOF  (  3  )  .  f  & .  (  MbK 4  I  «■  3  I  JtV  EN fs  =  .  F  AL  S c  . 

LVLYKYI  L  >  •=  1 
CALL  SELT IMITIMt) 

IF  CuRTURN)  RETURN 

IF (T IME.LE.MDF (EPTR+1) » GO  TO  7 

IF (PTIME.LT. MuF< EPTP+I ))T I ME=MGFIEPTR+1) 

7  PI  ?MF=  > 


,4X  T  I  ML  =  r  IMJT  [  M*  1 

Ir  tFVfc.\TSJ\XTm=.“IJP(MCl-(4  J  +  iJ 

i  F  (,M  DF  l  4  >  .N  t  .  .  )  -1 JF  (  IDF  <  4)  )  =  JUF  (  4  )  *3 

CALL  UFLSLT 

CALL  OSPLAY 

CALL  CLKUPD 

irillHh.Lt.OluL  1 1)  ?5 

CALL  l-LKUTS 

IF  (l.XT  IPfc  .  ii'U  •  >  )  C  ALL  JFCATE 

PT  IME=PT I ME  +  L 

IF  (TIME.GT. MUF  (  c  P  T  K  ♦  l )  )  GsJ  TU  15 
IF  (PTIMt  . LT.NX  Ti  IMF  )  GO  TC  15 
CALL  UP DAI c 
^XTI Mt=tUJT IMF  l 

IP (MCE ( MDF  (4)1  .  L  T  .  .TOF  (  3  )  J  N  X I  IME= MDF t MCF ( M CF 1 4 J  J  ) 

CALL  RESULT 

CALL  MVMENT 

CALL  USPLAY 

CALL  L  LKU  P J 

IF  (PTIPE.LT. TIME  I  GO  TC  IG 

IF  (TIME.  EO.MDF  (LPTR+l)  JCALL  .4tSAGE(  0) 

IF ( riML.GT.MDF (tPTRFl) JCALL  MESAGEt I) 

CALL  RLxdlS 

IF  (  (  IrfE'.Gt  .MUF  (I.PTK4I  J  JCALL  OINTRP 

CALL  JFFSEL 

CALL  r.LK'SEL 

Kt  TURN 

E.1D 


SUBROUTINE  URESET 

CO  MMON/MOF  ILE/MOF(3QOO  I  ,MUFMAX 

CONHON/UI  NTL/ENURNCI3*4J»ASSEfSt3*4I 

c  r:  m  o  n  /  u  i  n  f  r  /  r  c  o  s  1 z 

1-1  PL  IC  IT  I  NT  EG  t*  (A-Z) 

r.  ****  resets  unit  info  ano  action  pointers  to  time  zero 

UP  TR  =  MOF I  2 ) 

UT  01  AL=K0FIUP1  M  ♦.  IDF  I UPTP*  1  » 

UP  If-  -UP  T  i-  +4 

POST  UR  =  1 

DU  100  J=1 *  UTUTAL 

ACTPTR  =  MOFIUPTR*RCOSIZ -1 1 

Mi)f  (  ACT PT  F  \  =  l 

MuF  <  ACTPTT  +  l)  =  3 

MDFIACTPTR+2)=16 

MDF (UPTR+41 ^MOF (ACTPTR+4) 

MOf ( UP  T R+d I =MDF ( ACT  PTR.  +  5I 
MjF(UPTR+6»=MuF(ACTPTR+7) 
i'IDF  (  UPTR*  7  )  -u 


SiZt=K0HuPlk*2> 

TV  P  L  =  Ml)F  (U  PI 

Ml'F  (UPTk+H  )= ASSETS! SI Z  t, TYPE) 
MDF(UPTR«-9)^ENJRNC(  SIZ  E,  TYPE) 
DO  20  K-10,17 

MOf  I  UPTR+Kl =0 
CENT I  NOE 

HOP (JPTk*lb)  =P  i)S  TU  3 
0PTP.=UPTR*RC0$1  Z 
CONTINUE 


RETURN 

FNO 


SUBROUTINE  UPuAIE 


THIS  SUBROUTINE  CHECKS  FQk  DETECT cD  AND  DETECTING  UNIT 
AT  AT  I  ME  A:«u  THlN  UPOAlLj  THE  UNIT  IN  EUR  MAT  I  ON  PECCRuS 
AN u.  THE  EVlU  AiJNTC-  I  .  c .  MCFIMJM3)).  LLEVI 

CUhMGN/MJF  Lit/ MJF ( 3000 ) ,M 0 FMAX 

CC  MMON/PROBLM/PT l ME 

IMPLICIT  INTEGERIA-ZI 

KLUt'TR  (N)  =MCFl  M.H  I  2  T+3  »*20  *(N-i  ) 


LVPT  R  =  M  0  F  (  M  0 F  (  4  1  ) 

NUMR  LU=RQF I MOF ( 2  )*l  )  . 

10  £V ENT=MDF I EVPTR+1) 

G?  NUNT  =  MoF I  EVP  TP*? ) 

f  jUi»  T S=  'IDF  ( t  VP  I r< * 3 ) 

i..PNPTP  =  Mur  (Ml>F  (?  J+2  l*20*(G?i«oNT-ll 

GU82=2**(GKNUNT-1» 

If  (EVENT. NE.llGu  TO  230 

MOF  (  GkNPTP  .*  131  -  i  UK  I  HUF  (  GPN  P  T  r>*  1 .0  > ,ROUNT  S) 

UI  Cf  9£  =  l 

Ul.  1 50  1=1, RUM- Fu 

IF ( l AND ( UT CODE t FOUNTS) . EJ.vIGU  TO  149 
MuF ( RtDPTP ( I )+l6)= IGR( MUF( KEDPTRt I )*lfc) ,GUB2J 
U9  UTCuDE=2*UTCG0E 

lSc  CO NT  INUE 
Gu  TO  900 

20 U  IF ( EVENT. NF. 2  I  GO  TO  4u0 

MOF  ( GPITPTR+ 16 )  =  l  OR  I  MDF  (  GRN  PT  R+ 16 )  , ROUNT  S ) 

UTCODE=l 

DO  250  I  =  1  * N J M p E U 

IF ( I ANJ(UICuUE,PJUNTS» .EQ.G ) GO  To  249 

MDf  (  PEDPTP.  (  I  )*1<  J=IGM  MJF4REDPIK(I  1*101  ,GU32) 

249  UTCU0E=UTCUuE*2 

250  CJNTINUE 
GO  TO  900 


400  I F  (  t  V E  N  I  .  Nt  •  —  1  )  Ul.  Tl‘  600 

M.)FC  GKNPTF  +  1-.)  =  1  liXOh  (MOFfoi-  'tPlF  +  l-K  , JUhTSl 

orcuuL=i 

00  450  1  =  1*  NUMPED 

IFUANDJUT  CODE,  ROOMS)  .EJ.OIGO  TO  44V 
MJF  (PFi)PTP  (  I  >  +  l6|  =  IEXuP  MUI  <  PLoPTRl I ) +16)  ,GUB2) 
440  UTCF'Ot-UloCJL  '2 

45.’  CaNTInUE 
00  TO  900 

600  If (LVENT.NE.-2 )GG  TO  900 

MU  F  (  0  F,  N  T  T  4  +  It)  =1  rXfjk  ( MOF  (0 '-‘NPTP  ♦  16)  .COUNTS) 

UT  Cr  Ot=  1 

00  65.)  1  =  1  *Num:-  cO 

1F(IANO(UTCUoE,KOUMS)  .£0.0)00  TO  649 
MOF  (  KE0P1 R  (  I  )+lO)=  I  EXORMuFI  REOPTR(  I)+lu)  *GUB2) 
644  UTCuOE  =  UTCOu)h*2 

65  0  CONTINUE 


900  LVPT('  =  L  VPTF  +  5 

If (( EVPTR.LT.MUF(3) ) .ANC. ( MDF(EVPTR) .EO.PTIME) )G0  TO  10 

MDf(MOF  (4»)=EVPTP 

PhTUkN 

END 


V 


SUBRCuT  INF  C 2 1 
CALL  REPLAY 
RETURN 
lMJ 


SUbPUU  TINE  REPLAY 

C-  Mr, UN/ NOE  I  L  f/  MO E  (  j<  A..,  )  «M(J  F  M  AX 

COMMON/  C  D L  A Y /  I  twiX,  INI  R  VL  (  A  1  ,  Ef.jTIM 

CUMMCN/PPO u^M/ luTKPT 

COMMON/ PRO  8LM/ PT IM5 

COMMON/ BRANCH/ OR TURN 

CuMMON/CVKL AY/ CVLYKY l 5  I 

Ct  MMUN/S  INGcE/UPTR,E  ILPTk 

CLMMON/DL AY/I GcLY 

IMPLICIT  INTEGER!  A-C.E-2) 

LOGICAL  EVENTS 
LOGICAL  UPTURN 


=  *  PUFUMS  T  £  PLAY  OF  PLANNtU  UNIT  ACTIVITIES 

!*  El  NOS  UcIEIUCnG  AND  El  KINo  \  ANoE  EVENTS  DURING  'CUKKEI1  kuPLmY' 
«P  SP')=27 


,'ioTr  PL  =  £U 
0  ?  Ur  ll-  ~  M 
COUNT  =0 
MA  XCNT= 1 U 
CALL  GMLT 

IH  ITS«1  ?>  .  AoD.l  IS  a  (3)  )  Kb  A  3  l  i  »  7  o  >1 )  l  0E  LY 
7t)o  Fl :  kf .  AT  (15) 

CALL  oST  r ( 0 ,u) 

IF  (lTSMIli  M AXCNT  =  5 

IF  (MUt-  (4)  . EQ.O )  CALL  EVTINT 

EP  TF  r  (  4  1 

Ir  ((  INI  -  FI  .isL.vsiFPLI.C''.!  PTlKi  .L  T  .  ,1.;F  (  EP  T  >  + 1 )  I  )GU  TO  1 
CALL  ME  SAUL  Cl) 

CALL  DC  TOUT 
CALL  BLKUTS 
3  NXTI Mt=  END TI l 
WXTMe=FNOT  I P  +  l 
L  V  E  N  T  S  = .  T U  L  . 

IF  I MUF  (  2) .Lu. I  3uF  (  4  H- 3  I  )  t  V  EMS  =  .  FALSE. 

IF  (EVENTS. ANC.  (riUFl  EPTRI.LT..30F  (  3i>  IimXT  IMt=  M  JF(  M)F(  LPTP  ) ) 

IF  I  PI  I.3E.E0.ENDI  IMI  INTFPT=-1 
If  I  F  T  1 .31  «  t: '  >  •  £i  i  ul  I M  )  OuT  0  /5 

CALL  CK 1NT  { KEY  » 

IF  (OF  TU-'N.  OF  .(  KEY.  tQ.kTURN  >  > INTF PT= -l 
IF (OR TURN. I  K . I KEY.Ew.RTURN ) ) ju  TO  75 

II  (  K  {  Y  .  i\L  .  F  PSPOIodTf  5u 
CALL  RPLSPL) 

uurnio 

IF  (F ILPTR.GE.O)  GU  Tu  10 
F I LPTk  =o 
CALL  KPISPO 

10  IF  ( l  NT RPT . N£ . MSTRPL ) GU  TU  L5 

IFHPTIME.  Alt.  NXTIME).  OR.  (P7I.4E.  GT.  MDF(EPTR«-l)  )l  GO  TO  15 
CALL  r  FHASH 
NXTltftsLNJTIM*  l 

IF  (i-.lU  (  EPTH  )  .L  I  .tfUFI  3IINXT  I  Mc=3JF  (MUF  I  lETKH 
15  CALL  TTFASt 

CALL  RESULT 

CALL  MVMfNT 

CALL  US  FLAY 
CALL  CLKUPU 

IFUNTRPT.EO.CURPLYIGU  TU  60 
IF (PTINt.tQ.M  JFCtPTM-l  I  IGG  TO  70 
Go  T  (  i 


CjUnt=c*.unt+i 

iiJFitPP+t  )  ^PT  IMl 

IF  ICoJNT.LT. ;4AXCnT»  GO  TO  t> 

CVLYKY Ill'll 

PE  TURN  \ 

7  i  l  r  (  P T  I  M  l  •  r  w  •  I'.X  i  I  r;t_  )  C  AL  L  *<  L  h  A  jtt 
CALL  Mt SAGl I  0) 

CALL  DINTRP 
7'i  OV  LYKY  (  l )  =  L 
CALL  OFFSEL 
CALL  £  LK.S  EL 
*L  TUP N 

END 


SUBROUTINE  OCTlUT 
CO  MMUN/U I NFn/RCDS I L 
COMMON/MDFILE/MuFI  3000  )  ,MDRKAX 
IMPCIC  n  IMTEocMA-ZJ 
UPTF=MuL <Z) 

UT0TAL=M0E  (UPlEi+MOt  (UPTE*  Li 
IF  (UTUTAL  .CQ.!)  IRE  TURN 
UPTR=UPTR+4 
DO  100  J-ltUTOTAL 
MijF  (OPT P+10  J  =0 
MOF  <  JPTR+161  =o 
UP  T  P  ^UPTK+RC  OS  l  /. 

100  CONTINUE 
RETURN 
END 


SUBROUTINE  REHASH 

THIS  POUT I NE  IS  CALLED  TU  HEAD  AN  cVENT  FROM  THE 
fcVEuI  FILE  ,  UPDATE  INE UK, TAT  1 UN  IN  THE  UNIT  INFC  RECORD j 
AND  JP  Ah  ULIECTIUN  LINES*  LLLVI 
CnMMON/MUE  ILE/HUF  (  T\)Oo  >  « -A  J  F  MAX 
COMMON/ PROBLM/PT  IMF 

COMMON/ fPLAY/INDLX* INTRVLI 4),£NUTIM 
CwMMCN/DL AY/IDELY 
IMPLICIT  INT eOEKl A-Z) 
l ODl CAL  NEW 

T  FOPTiU  N)=MDE  l  MOT  (  t )  *■  i  )  *2U  *  (  N—  1  ) 

IE  NT  =2l<*0 

NUMRED=Ml)f  <MDF<Zl  +  l  ) 


HO  T  U  A  L  =  , 

CALL  o  S  A  V  t  (  1  i  ip  L  *  11  •  12,  I  i ) 

M  t  to  =  .  F  A  L  5>  E  • 

EVPTR=*DF(MDF(  4 )  ) 

1.';  EVENl=rtCF( EVPTR+1) 

L>i-.i\uNT=MiJF  (  LVPTP+?  ) 

GUP  2  =  2* :  (  ur.  NUN  7  -  1  ) 

F  JUU  I  S  — ML/f  (  LV  P  l  +  3  ) 

GPNPTK=MOF  t  MDF  (2  )  -F2  )+20*(G  RuUNT-1 ) 

EV  PTR=  E VPTR+5 
MUPE=. FALSE. 

IF  (  1 1  VP  TF-  •  L  T.rtGF  13)  ).  ANG.  (  FiDFltVPT'r  )  .E«.PTIME)  ) TQRE=.TK 
If  ( (  .N if!  •  rli;KL  )  .1  R •  ( MOF  (  -VP  1  K+  i  )  . UE.  2)  .uR. 

+  t  MuFUVPT  3  >2).  ME  .GRNJNT)  ..Jf.  (EVENT.  NE  .  1 )  )  GL!  TO  50 
MUTU AL= l AND ( ROUNT  S  *  MOF ( EVP7K+3) ) 

SO  IF  (EVENT.  Nt.DGC  TO  200 

M  >F(G*  .FPTk-F  U)  =  H  R(MDf  (GKNPTRMC)  .RUUNTS) 

UT  CLiOt=  1 

Ul  15.J  1  =  1*  NuMr  E‘.) 

IFI lANDlUTCUDE.ROUNTS) .EO.OIGO  TO  149 

MOP ( Kb JPTR ( I  )  + 16  )  •=  I GP  (  MDF  (  PE  OPT  R  (  I  )+16)  ,  GUB2) 

X 1  =  Mi)F  ( GRN  PTR+  4 ) 

Y 1 =  MOP ( GPN  PT  P  F5  ) 

X2=MGF (KEuPTRt I ) +4  ) 

Y2  =  M0F(  RE;)PTR(  I  )  +  S  ) 
o  ALL  GBEGI lENT.XL.YI) 

CALL  GPUTI 5, 1760,0,0) 

CALL  GPUT(6,53«X2,Y2) 

IF  ( 1  ANDIUTC.  Ol,  MUTUAL)  .imc.oJCALL  LuLuM  1) 

1  ENT  = I ENT+  1 
NLW= . TRUE . 

149  UT C DDE =2*UTCGDE 

150  CONTINUE 
GO  TO  900 

20  )  IF  IF  VINT. NF.?) Go  TO  400 

fluFIG-  NPTR-H6)  =  1  OF  (Oof  (  GRNPTiU  10  )  ,  KD  JNT  S  ) 

UT  CGUE= I 

00  250  I=1*NUMREU 

IF  ( IAND(UTCGOE.I-UUNTS)  .Ew.OIGO  TU  249 

Muf ( FEOPT3 (1)+I0»= IUP( MJF( RtUPTPI I )+10) ,GUB2) 

Ir (IAND(UT  COOL*  MUTUAL)  .NE.uJGu  TU  249 
X i  =  MDP ( GkN  P I K  +  41 
YI  =  MOF ( GRNPTR+5  ) 

X2=M0F< KEOPTRC II+4) 

Y2=MDF (REDPTRI I )  +  5) 

CALL  GULGI ItNT.Xl.Yl) 

CALL  OPUT ( 5,176o,0,G) 

CAlL  GPUT (6,53,X2, Y2) 

CALL  COLGK(O) 

I ENT= I ENT+1 
NEW=.TRUE. 

MUTUAL  =  '! 

249  uTCUUL  =  jTCGl>L*2 


— 


\ 


— y^i 


25,  UNTIMUi- 
GL  T  L  9u 0 


Mt, 


400  IF  (EVENT  .NE.-i  IGl,  TC  <,00 

MOF ( GPNPT? F 10 )=i LX  UP (MDFIGSNPTPF 10)  f  RQUNT  S  ) 

UTCUDt-  1 

Ol  4!?  0  !  =  ’.  .MGMPcG 

It-  (i  ANulUlCuD'^t'-OUNTS)  .EQ.  „)•»(»  TO  449 

KUF  (  TE  JPTR  (  1)  +  1«-  »-I  EXJRMJF  (  KtD  P  T  R  (  1  )  4  16)  ,GU8  2  J 

449  UTCLOE- UTCCDE*2 

450  CONTINUE 

GL  TO  9GU 

600  IF  {  b  V  t  M  .  N t  . - 2  )  G G  T 1 ,  90. j 

f-U  F  (  GRNPTK  + 16 )  =  !  EXU F  ( A  OT  { o  RUP  I  n  4  16 )  ,RDoNT  S) 

UTC00t=l 

00  650  I  -=  1  *  NUMRED 

IF  (I  ANlMUTCIjOE*  FOUNTS)  . EG.O )G0  TO  649 

MDF  (  RF'.TPTT  ( IbXJMrtJF  I  RtOPTkl  l) Flu)  , GU32) 

64  S  UTCf  L5E  =  UTCU)fc*? 

65  0  Cu  NT  I NUl 

900  IF(MLRF)GC  TO  lu 


MOf  (M0H4)  J  =  EV PTR 
CALL  8LKUTS 

1F<ITSWI3).NE. 1) Il)ELY=l  )0+ (INDEX) *100 
IF (Nfcw ) CALL  DELAY! I UfcLY  ) 

CALL  GRFST! IUPL, I L, 12, 131 

rF TUKN 
l  ;  i  o 


» 


SUtiRuUT  INE  8LKU1S 

CUMMQN/MOF  I  L  E/MUF  1  3000  )  ,  MUF MAX 

IMPLICIT  IMTEGt-(A-Z) 

THIS  Fl.OTINL  dLINKS  THE  JtlcCTfcD  UMTS  AND  HALTS  THl 
blinking  oi  int  pemajim  i.\u  uniTj 

NUMUTS=MDF(MDF (2 )) -MUF ( MuF ic I+l J 
UNTPTR=M0F( 21+4 
IF  (NuM'JTS.LQ.N  ).  t  T J ■< N 
D!  I  -,j\.  K=  1  t  NUM  JT  S 

lALL  GEMIMJF  l'JNTPTP+1  )  ) 

CALL  GPUTC3, 130,3,0) 

IF  (MOF  (UNT  9TP*lt>)  .NL.O  )CALL  GPUTI  3,130,3,1) 

UN  TP  TR=  UNTPTR+  20 
Cl  NT  I MUF 


SUBROUTINE  THiSASE 
CUMMQN/PR08LM/PTIME 

Cl MMCN/KPL AY/ '\OlX.INI RVLI 41 »ENOT 1 M 
IMPLICIT  IMU'.WU-E) 

C  **■**  CLOCK  WHICH  CAUSES  PROBLEM  TIME  TO  ADVANCE 

CALL  DELAYI 1NTKVLI INDEX)) 

PI  1ME=PT1ME+1 

PE  TURN 
END 


♦ 


I 


SUBROUTINE  DEL  AYIINTRVL) 

IMPLICIT  INTfcvitR  ( A-ZI 

*■**  DELAYS  kEAL  I  I  Mu  HETJP-iM  TJ  fEPLAY 

CALc  T IMEIXlN.MSfcC) 

XTMSEC=MSEC+INTRVL 
MI N1=XTMSEC/12000 
MS  EC  1=  X  TM  S  EC  - 1 2000  *  M I  N 1 
Ml  i\l  -MI  Nl 1 N 

CALL  T IME lMINt MSEC) 

CALL  GSTT (0*0) 

IF (MSEC.LT.MSECl.OR.MI N.LT.MIN1IGCTC1 

RETURN 

END 


'3*  *r 


\ 


SUBROUTINE  MVMENT 
CUMMLiN/MOF ILE/MUFI3O09I  #M JFMAX 
COMMON/UlNFG/RCoSl L 
CoMMGN/PRufcSLM/  T  IMt 
IMPLICIT  INltULR(A-Z) 

C  ****  FINDS  UNITS  PUS l T ION  BASED  ON  PROBLEM  TIME,  ENTER  THEM  INTu  PILi 
UNTPTR=MOF(2) 


<  I. 


» 


I 


S 


J- 


"f  «. 


U'’  l-  =oMPTPt4 

ucuunt-mdf  ( wain:- )  ♦■mop  (  umt  p  i r*-  l  j 

0(1  l  J- 1  « UCCUNT 

AC  TPTR=  MQF  (UPTR+FC0SI2-1) 

PPtSNr=MDF<  ACTPTR+1  >+ACTPTR 

Nit  AT=rtUF  (  AC  T P 1  a* 2 )  +  ACT  PTC 

CALL  CAL  PCS  I  Pk  F  SM  ,UEXT  ,X,  Y  ,  rt  '•VCUO) 

KUMUPTt-+4)=X 

M3F(  UP  TF  +  M=Y 

MuF (UPTR+6)=MUF(PPESNT+4) 

IF  (MCVCUU.UE. j)  MJF(UPTP>  7 )  =  MOV COO 
IF (M OF (NEXT *3) .GT. ( IM  £  1  GOT  1 l j 
Ml'FCACTPTP  I=MJF(  ACTPTk+LJ 
MJF  (  AC  TPTK+  1 )  =  MoF  (  U1PTK+2I 

MOF<  ACT  PTR  +  2»  =  Ml)F(  ACT  PT  P+2) +ACTLENI  MOM  NEXT)  ) 
l!>  UPTP=UPTF  +  RC0SI2 

1  CUNTIINIUC- 

Pt TURN 
ENIO 


I 

» 


SUtJROUT  IMfc  CAL  PUStPftESNT,  NEXT,  X,Y,M3VCUD» 
CO  MMCN/  MOF  l  L  t/ MUF (  3000  )  «MOFMAX 
CuMMbU/PRGBLM/ Ti ME 
IMPLICIT  IMhGfciU  A-C’t  S-Z» 

XO=fiUF  (  PkF  Si'JT+  1 1 
YJ«MOF I PRESNT+2 ) 

TG-MLiF  (  PAESNT  *  3) 

XF=MOF<  0EXT+1) 

YF=rtL'F(wCXT+?) 

TI  =  -ILiF-  (NtXTO) 
bl  =  T  IML-T*. 

IFdO.NE.TFI  GO  Tb  5 
X=  XF 
Y=  YF 

MUVC  Oo  =  ~l 
uu T L  1  1 

Call  VCL(X).Y0,XF»YF»T J.If  .svX.RVY) 

CALL  IPCSlTIXb.YO, AVX,PVY,CT.X,Y) 

Mover o=i 

II  (XO.FC.XF  -ANO.  YO.EC.YFi  M0VC0L)  =  J 


SUBELUTIimL  CLKUPO 
COMMON/ PROBLM/PT IME 

CUMMCN/  f-  PL  AY  / 1  NUEX  ,  I  NT  «l'L(  4) #ENDT  IM 
IMPLICIT  INTtJLr  (A-Z) 

D I  Mi  NS  I  ON  count  In  I 

DATA  C’jI'c  /  lrH  ,  lul,  IH2 , 1 ,13  ,  lilt ,  IMS  ,  1  H6,  L  H/  ,  iHU  ,  1H9/ 

****  UPDATES  THE  TIME  NEECLE  ANJ  NUMERIC  PRuBLEM  TIME  UN  SC 
CALL  GFNTI4) 

X=f LUAT ( PT IME) *l024./h  LCAT  <  ENUT 1 M) 

0X=X-50U 

CALL  GPUT 16*104* DX»U) 

PLACE3 IOOO 

****  RETURNS  HOUR; MINUTE  EQUIVALENT  UE  MINUTE  COUNTER  "PTlM 
FMUt  R=H  RMNS I PT IME1 

00  1  J=l,4 

NUMRAL=RMOER/ PL AC£*P  L ACE 

RMOER=RMDEE-NUMRAL 

NUMR AL  =  NUMRAL/PL ACER  1 

CALL  GPUTI 13RJ.90.CJCEI NUMRAL ) ,0) 

PLACt-PLACE/10 

CONTINUE 

RETURN 

END 


S  J  iiKbU  T  I  (St  L  VlUXO,  YO.XF.Yf  ,TOt7F,RVX,RVY) 

IMPLICIT  INTEGER 1 A-Ot S-ZI 
C 

IXl.IYI  A-l.  1  lit  POSITIONS  CF  Tile  UK  11  AT  TIME  TO. 

C  IXF.IYF  POSITIONS  AT  TIME  Tr 

C  Rix  THll,  INfi,  CALCULATE  THE  CuMPufctNT  VtUIClTItS  vX  ANu  VY 

c 

c  DT  REPRESENTS  THE  CHANGE  IN  TINE  CCk At SPC NO I NO  TO  THE  CHANGE 

C  In  Fuill II on 

Cl =1 F- T  . 

KVX=F  LOAT  (XF-X  .)  /FLuAl  (  JT  » 

SVY=FLl  ATI  YF-YU) /FLOAT!  l)T  ) 

F  t  T  U  KN 
F.NJ 


\ 


jL 


SUBROUTINE  IPLSITUO,YO,RVX,RVY,DT.XP»YP) 

IMPLICIT  INTEGER (A-Q.S-ZI 

GIVEN  IM1  I  AL  ?laI  TIGNSI  IXu.  IYuI  C'ii-lPUNLN  T  VELuCITIlS 
Zf  The  UNIT  ( VX  » V  Y )  ANU  THE  CHANGl  IN  T  l  rib,  NT,  FROM  THE 
INIIlAb  PrslIIl.N,  CALOJLATc  The  NcW  P'JSITIUN  IXP.IYP. 

XP=FLCAT(Xu)+hVX*FLOA1 (CT) +.5 
YP  =  FL  JAT  l Yw )+R VY*F  LOAT  (  OT  )  *.5 


Rr.  TURN 

Eh  U 


9 


I 


SUBROUTINE  PQSUM 
COMMuN/MOF 1LE/MUF(3G00  I  ,;TUf*AX 
CUMrtON/Ul NFO/RCUSIZ 
IMPLICIT  iMlturh  (A-/) 


****  POSITIONS  j.MUS  AOCO-UlRu  I  1  UNIT  luFOFMAT  luN  KFCOF . 


UP  Tft  =MUF ( 2 ) 

UTCJT  AL=MOF  (  UP!  K  1 +ff  )f  (  UP TR+  1 1 
PL  PI  R=UDTP+4 


Gu  1  1-I»UTLTAL 

ENT=MOP( FLPTR+L ) 
X=iTUF  (  FL  PT  P  +  4  I 
Y  =  MOF(FLPIk«-5> 

CALL  GENT (LOT  I 
CALL  C»  PU  T  (  l»  i  j  U  *  X  t » > ) 
Call  GPyl  (  kt  1 1‘»»  V 
FLPTtf=f-LPlfc+RCOSlZ 
I  CuNTINUb 

J*  L  TUr  a 

t*'.  u 


0 


/ 


SU3RCUT  INE  TTLEbSI  X 1 , Y 1 , X2 , Y2 , l  TYPE  ,  JLUOK , l ARY , LEN) 

COMMON/ MUF  ILE/M0F(  3000  )  .MOFMAX 
£********* 

C  «  *«■  v 

a  Path  Ll  i>  IS  PASSED  If,  X  1 ,  r  it  X  2 ,  V  2  ANO  UaTA  Ij  Pl  lo--. 
I  At  V  461.  J I  ALL  Tl  c  ,-iAL  iN  CROSSINGS.  JcRKAIN  INFO  IS  :IiI 

C  v  **  %  **. 

C*********  ITYPE  -  MUST  BE  SET  BY  CALLING  ROUTINE  TO  THE  TERRAIN 
C <•******-•**  TYPE  OF  XI, Yl.  IF  SO  SET,  1AKYO)  RETURNS  T Hi 

C*********  TE-RAIN  TYPE  MASXLU  BY  JLUOK. 


C**t ******  JLULK  -  HIT  MASK  USED  1 J  INDICATE  WHICH  TtRRAIN  TYPES  Ar.j 
C  *  *i~  **  i  i_  Be  S-XA  M  INc  D  uR  IGNORED  WHEN  cCuKING  F  i'\  CK,  j  jI.i.i  j> 

C*********  iCT  BITS  1  (LSD)  lu  6.  1 <->p  0 AO,  6<->FU«  <_S  T  . 

C*******  **■  IAKY  -  AN  AFRAY  IN  WHICH  CROSSINGS  CAN  BE  PASSED  BACK  III 
C*  ** ******  THE  CALLING  PROGRAM. 

C*********  LEW  -  LENGTH  Of-  1  ARY  (NUMBER  OR  WORDS). 

(•  *  ** **** **  1  A*- Y  (  1  f  =i-i  JMR  E  v  Or  I  NT  EH  St.v.T  IONS  FOUND.  UP.: 

C  *********  IE  LE  i  IS  TOO  S-ULL  FOR  ALL  OF  THE  PJlNTS  TO  iC  I  cU.,D 

c *********  =NEGAT I Vt  OF  NUMBER  OF  POINTS  FOUNu .  OR: 

C ******* *4:  I*  lLN  IS  TOO  SMALL  FOR  ANY  POINTS  TO  BE  FOUND 

C* ********  s-ICOO 

C  *  **  ****  ** 

c  *********  (  A!-  Y  (  S  >  =  I  hr. !  A I  i'i  TYPE  OF  riEST  POINT,  IN  BIT  CODED  Fu«.M» 
r*********  MA>KcJ  BY  JcOCK. 

£********* 

C*********  IAFY(5)=X  uF  FIRST  PU1NT  Of  INTERSECTION 
C*********  I  ARY ( 6  )  =  Y  IF  FIRS!  PUIuI  OF  INTERSECTION 
<-*********  1  a*-'Y(  n=AJUkcSS  UF  TERRAIN  IN  THE  MDF 
C*  ********  IAIY(c»=TEkRAIN  TYPE  Of  FIRST  POINT  OF  INTERSECT  lo  I 
c*********  Om  fir  Co 0 cO  FORM. 

C*********  A  ct  LL  IS  b  WORDS  LONG,  STARTING  AT  IARY(4) 

C *********  ET  CETERA 
C******* ** 

C  <*-***  •* » IF  I  AE  Y  1  S  It  U  SHORT  FOR  ANY  POINT  b  To  BE  RECORDED,  THEN 
C  **********  '  t  T  U P N S  ,-;iTn  IAkYI  1  )--lw»OU 

L*******  ** 

INTEGER  XI, YI, XP.Y2.SFT 
DIMENSION  I  NT  ARY  <51 
DIMENSION  ITRCOD(b) , I ARY( L I 
DATA  I TKCOD/ 1, 2,4, 8, 16, 32, o4,  128/ 

I  A  KY (?)  - 1  AND ( [ TYPE, JL  )LK) 

SF  T=U 
LUC=S 

IF  (MDF  (MDF  (  I ))  .EU.  UGOTClOOu 

^*  ****** **  LENGTH  P^liiTS  TO  THE  LOCAilUN  JF  IHc  LAST  PLACE  IN  I  ,V  Y 
C*********  m  h  L s  E  A  SU  (X,Y,  TERRAIN  TYPE)  CAN  t>L  PUT. 

Lf NGTH=LeN-4 

IF  ( LUC. LE. LENGTH)  GO  TO  4 

I ARY ( 1)=-10UG 

RETURN 

A  CONTINUt 

0*********  SEARCH  THROUGH  MDF  FOR  CROSSINGS. 

I NXT  =  MOF (  l) 

ID  IPTR=INXT 

IF ( IPTR.EO.OlGU  TO  1000 
1NXT=MDF(  IPTR  ) 

IPTK1=IPTR 
NT YPt=MUf  (  I  PTRMl  ) 

IF ( I  AND ( I TRCOU (NI YPE ) « J LOOK I . £0. 0)GO  TO  10 
IF ((Xl.LT. MUF ( IPTR*3I. AND. X2.LT.M0F ( I PTR*3 > ) .OR . 

♦  ( Yl.LT.MDF ( IPTR *41 . AND . Y2 . L T. MDF ( 1PTR+4) ) .OR. 

*  ( X l . cT .MDF ( IPTR +5) . AN J.X2.GT .MU Ft IPTR *5) ) .OR. 


♦  t  Y 1  .OT.MUfUt-'TK+ol  .ANJ.Y2.  ,T.rtJHIPTRE6)  ))  GC  Tu  1J 
IpTh=I J  T  P  ♦  5 
?.)  1 P  TK=  l PT  R  +  2 

IFUPTR.GE.INXT-2)GG  TO  LO 

CALL  wHLREXlXl ,Y1, X2, Y2.MDFI I PTR )  , MDF  ( I  PT  R+ 1 ) , MDF { I PT R+2 ) , 

+  MDF  I  I PTR +3  )  t l  NT ARY I 

IFUNTAPYtH.tG.OJGO  FC  20 

IF  <  (MOF(  IPTi-  )  .EO.  INTAR  Y<  2i  .AND.  MCF(  1 P 1 R+ 1 ) . tO. I  NT  ARY  (  I  .NR. 
+■  l  MDF ( I °T  F  +  2 I . 1 0 . IN  T  ARY ( 2 ) .AND .MDf (I PTR*  3) . CO. IN  I  Y I  3) J) 

+  I PTR* I P i K+  2 

I  AH  Y  (  LCC  )  =  Ii.TAR  Y  I  2  I 
IARYILOC+i )  =  1NT  ARY ( 3) 

I  ARY  I LCC  *2 )  =  I P  TK  1 

I  ARY (LCC *3  )=  IT  RCUO  ( NTY  Pc  ) 

tGC=LUC+5 

55  IFILJC.LE. LENGTH) GO  TO  20 

60  CCNTINUfc 

*v**  [ARY  FILLLj  oEFORE  all  intersections  found. 

I  ARY  ( I )=-LUC/5+l 
ou  1 U  1005 

C,  *********  ALL  INTER  SECT  IONS  FOUND 
1000  I  ARY  C 1 l=L0C/5-l 

O********  SORT  POINTS  IN  ORDER  FROM  XI  TO  X2 
I  >j05  Co nT  I NUF 

c*********  LHtiCK  FCF  /EK'J  PCINTS 
IF  ILL  C .E0.5  IGuTuBOOO 
C*********  CHECK  FOR  ONE  POINT 
IF (LCC. EG. IOJGOTC2UOO 
c*********  QK  TO  SORT 
LuCM5=LCC -5 
L  ’’ CM  1 0=  Ll'C- 10 

0*********  SORT  IN  ASCLNDEING  OR  GET? 

IF  (X1.GT.X2J  GO  TO  1050 
IF(X1 .LT.X2IG0  TO  1007 
SFT  =  1 

IFIYI.GI.Y2 ICO  TC  1050 
c*********  YES. ASCENDING 
100  7  DO  1010  1  =  5. L0CM10 » 5 

UJ=I+5 

DO  1010  J=JJ,LCCM5,5  . 

1010  IF (1ARY( I  +  SFT) .GT.IARYI J+SFTI1CALL  SWPSUMI I  ARY ( 1 1 » I  ARY ( 0 ) .5 ) 

GO  IU  2000 

^  *********  N.j,  i)t  SC  END  I  No 
U  50  CL  NT  l  NU  L 

00  1070  1*5, L0CM10  « 5 
JJ*I+5 

DO  1070  J*J J.LCCM5, 5 

1070  IF  (  I  APYII  *SFT  J  .LT.  I  ARY  (  J+SFTIJCALL  SwPSUM  ( I  ARY  (  I )  ,  I  AF  Y  (  J  )  ,  5  ) 

C*  ********  LU-.OUIE  BIT  CODES  FOR  TYPES 
2u00  CONTINUE 

L0C  =  8 

2010  IF  (LCC.GT.LEN)  GO  TO  3000 

IARY(LCCI*IEXOR( IARYILGC-5 J.lARYILOC) I 

LGC=LUC*5 
W  Tu  2010 


» 


FUNCTION  IwPAM IIX,Y, JLGCK) 

COMMON/MUFI LF/MuF  (  3000)  , MO F MAX 

INTFuEK  X « Y 

UI  MENS  ION  1  TNCt.JlO  > 

L'ATa  ITrCOD/1,2,4,8,16,32,64,123/ 

ILOCK*  I  AND!  JtX’UK ,191) 

C*********  P  t TUP NS  A  BIT  CODED  WORD  TO  INDICATE  WHAT  TYPE  OF  TERRAIN 
C *********  POImT  X, Y  IS  IN. 

O** ******  SI  A-,  I  IN  CLFAW  TERRAIN 
IaPANI-'’ 

C*********  SEARCH  ALL  OF  TERRAIN  DATA  FILE 

I  ENO=MUF ( 2 ) - l 
IP  TR=MOF ( 1) 

II  <MOF (  I  PT  P )  .LC.OIGOTU  2000 
l j  )NXT=MdF( IPTF) 

I T YPE=MDF(  IPTR+1) 

C*********  SOME  TERRAINS  ARE  SKIPPED 

IF  ( lAN0<ILOGK,ITRCnD(ITYPEIJ.£G.O)  GO  TO  1000 
C*********  IS  IT  INSIDfc  THE  M IN/ MAX  BOX? 

IF  (  .NOT. ( 

a  X.GE.MDFI  IPTK+J  )  .AND.X.  LE.MDF  (  IPTR+8) 

<j y  .A  NU  . 

2  Y.GE.MOFI IPTR+4). AND. Y.CE.MOFI JPTR+6) 

j.  )  )  GO  TO  1000 

C*********  IT  IS  INSIDE  BOX,  SEE  IF  IT  IS  INSIDE  BOUNDARY, 

I  PTR=  l  PTR  +7 

IF  (  INSID£(X,Y,Mi>FI  IPTR  ),  I  NX  T- I  PTR)  .  EO.O)  GO  TO  1000 
C*  *****  it  IS  INSIDE 

IWRAMI=IEXQR(I WAAM I , ITRCUDIITYPE)  ) 

1000  IF  (INXT.EO. ItND)  GO  TC  2000 
I P  TR  =  I NXT 
GO  TO  10 
2000  RETUFN 
FND 


» 


FUNCTION  INSIDE! IX, IY,IXY,NXY) 

C  INSIDE  RESTURNS  0  IF  (IX,IV»  IS  NOT  INSIDE  THE  CURVE  SPECIFIED  BY  TH 
C  ARRAY  IXV.  IF  THE  POINT  IS  INSIDE  THE  CURVE,  1  IS  RETURNED 
DIMENSION  l  T  t)L  (4 ,4  I  «  I X  Y  (2 ) 

OATA  ITPL/Of-I  •lDD'Jtl,  1*0,-1»1<  OCfluOvJ, 1,0, -1,-1,  1  JOu  ,1  »*j/ 

1NSI DE=l 
ICNT=0 

IDX= IXY ( 1 )-  IX 
ID  Y= 1XY ( 2 1 - 1 Y 

JGO=  1 

GO  TO  5000 
200u  KK=NXY 


‘ J i  '  L  G f '  J=  j  t  KK  *  c 
1  w  uL—  10.) 

1 0  X=  1  X  Y  (  J  )  -  1  X 
l J Y= IX Y l J+ 1 )  ~ I Y 
JGO=  2 

GU  TO  5000 

5<.>0i:  It  (  IT8U  IDOL,  ICOI  .EO.UOO  )  Gu  TC  1100 

I CNT  =  1 CNT 1 1 TbL  (  IOuL  ,  INC) 

Go  TL  100 ; 

5000  CONTINUE 

It  C (IDX.Gfc.O) .AND. ( IGY.Gfc .01 )  IQD=1 
If  (  (  IDX.1_T.0I  .AND.  (  IOY.GE  .01 )  IQD=2 
if  ( (  iox.lt.o)  .and.i  iuy.lt. on  100=3 

if  ((  UX.Gf.uI  .ANO.I  IOY.LT.  ul)  100=4 
GG  u.  1 2000  1 3000 »  4000  I  •  JGU 
1100  I  OOP  =100 
X=  IX 
Y=  IY 

If  UXYIJ-1).GT.IXY(J*1)1GC  TJ  710u 
Xl  =  I  X Y l J-? ) 

Yl=IXY( J-l) 

X2=  I  XY  (  J  ) 

Y2=IXYt J+l I 
GO  TO  7200 
7luO  X?=  I  X  Y  <  J-  2 1 
Y  =IXY( J-l) 

XI  =  1  XY  (  J  ) 

Yl= I  XVI J  +  l ) 

7200  SM=( Y2-Y1I/IX2-X1) 

OX=X-X 1 
SY=Y-Y  1 
0 Y=S  M*OX 

If  (SY.LE.OY)  Gt  T n  7300 

10X=X2-X 

IOY=Yl-Y 

JGG=  3 

GO  ru  5000 

7  V  Ou  If  (SY.EU.OY)  Gw  1 740.. 

I JX=X1 -X 
ID Y=Y2-Y 
UGO=  3 

GO  TO  5000 

7400  IMSI0E=0 
RETURN 

4000  ICNT  =  ICNTt2*IT  BL ( I UDL *  IOD) 

IOD=  i  OOP 
1000  CONTINUE 

If  ( I CNT . EQ.O)  I  NS  I Dfc=0 
RETURN 

I  20u  IN S l Ut  =0 

RE  TURN 
END 


■■•S"  *» 


/UASMR 

***  FUNCTION  l AND 

***  KFTURNS  LOGICAL  AMO  OF  TNG  INTEGERS 


T  IT  Lc 

I  AND 

NAi-IL 

I  AMO 

txr 

iSE 

l  AND 

tNTR 

CALL 

$  Sfc 

DATA 

2 

K 

bSS 

1 

L 

GSS 

1 

L  CAE* 

K 

ANAL* 

L 

f.ETU* 

END 

I  AND 

» 


I 


***  FUNCTION  IEXOR 

***  RETURNS  THE  LOGICAL  EXCLUSIVE  OR  OF  TWO  INTEGERS 
TITLE  IEXOR 
NAME  IEXUR 
EXT  ibt 

U  XOR  ENT  k 

CALL  $SE 
DATA  2 

K  8SS  I 

I  SSS  1 

LOAt *  K 
LkAt*  L 
RETU*  IEXOR 
END 


SUPRUUl  I  .Nit  0ECMIN4  IOTIMt.l  TMEI 


0 


-»  - 


C  PEIJkNS  AW  ABSUluT!  MINUTE  CUUWTck  EUJIVAlENT 
C  DECIMAL  HUUP-MIMUTt  NUMBER 

IHP=  I OT  1  ME/  100 
MI N* I OT I  ME -I HR* 100 
IT  IMF=IHR*oO*MlN 

t-ETURN 

FND 


I 


l 


I 

I 

t 


» 


SU6F.UUT  1NE  RT  ADI  TPTR  ) 

C0MMGN/MUF11E/MdF( 30001 .MJFMAX 
IMPLICIT  INTEGER  (A-G.S-W) 

C  ****  CL'JVf  RTS  A  sIMPlI  PATH  SET  IF  kJAQ  SEGMENT  ENUPuINTS  INT-,  A 
C  ***»  CLOSE  U  WIND  I  No  CORRI»)uR«S  COuTCUR  SLGMSN1  ENDPUlNTS. 

SKRRTP=MJF<3) 

FLPT  R  =  MOF ( TPTR  ) 

MU  F  (  r  L  ’’  T  P  +  1 )  =  1 

Mu  Ft 1PTP  +  1)=7 

MOF(FLPTk  +  2  )=MLlF(TPTft+2)  +  l 

Ol)  1  N*  3,6 

MDFIFLPTR+N J  =  MDF(T?TR  +  N  ) 
t  CUM  I  MlJt 

fi.Pl  R  =  T  PTR  +  7 

C  ****  uET  COORDINATES  uF  SEGMEN I  LA  SIMPLE  PATH  SET 
2  XI =MOF ( FL P TR  ) 

Y I —MCt  (f  LPTR+1 J 
X2  =  Ml.F  (  TLPTR+c  ) 

Y2=Md  (  r  LP1  P+2  ) 

C  ****  !  S  SLOPE  DEFINED? 

IF ( Y2. EO. Yl IGOTU5 
C  »'  -  '  COMPUTE  SI  G  PL 
C  ****  c  MDA-  IS  rue  F  l  xP  END  ICO  L AR 
"  M  t)  A  P  -  (  X 1  -  X  2  I  /  ( Y  2  -  Y  1  ) 

r.  ****  COMPUTE  COL  RUINATES  OF  LINES  PARALLEL  TU  SEGMENT  ANU  S  DwlTS  Aw  AY 
XP-=5./SORT(RMbAP*RMdAR  +  l.  I  4XL 
YP  =  RMtiAP*  (  XP-X  i  I  +Y  1 
XN-=2.*X1  -XP 
Yv=RKt,A j.-IXN-X  IJ  +Y1 

GGTOfc 

..  ****  jtGMtNT  IS  V-MK.Lt.  SO  JUST  AD, )/  SUBTRACT  5  FROM  X 

XPsXl+E. 

Y  ’  =  Y  1 
XN*X  1  -t>. 

VU*Y  l 


C  ****  SUIPL  IS  STOP  EG  IN  At,  l NT  fit.!  ARRAY,  SC  MlHlMUfc 

C  -  ^  t  RUNC.U  ION  oY  MULT  I  H  LY  I  No  THE  PERPENDICULAR  3Y  22 
(.  ****  Hcf  t»  W  E  M  A  i\  1  THE  SLoPt  A  j  LARGE  AS  POSSIBLE  FEP  IMmc!  W  J.~Cj 
RM8AR=  32U0G. 


C.  ****  if  PATH  IS  U  1NG  IN  A  OCR,.  CI.nECIIJU  WE  HAVE  THE  L  EET  PAI.ALLLL 
c  4***  line  PRECEEU  THE  RIGHT  10  THE  ClNpTkUC  T I  ON  OF  The  CJNT.iCr- 
R  SH I F  T  =  0 

IF  (Y1.LT.Y2)  SHIFT=3 

C  ****  STORE  THE  LINES  (PARALLELS)  IN  THt  MOF  SCRATCH  AREA 

C  IN  S  rtUTO  CELLS,  WHERE  THE  3RD  WORD  IS  SLOPE  ANJ  THE  F 1 1  ST 

C  ***<••  Two  WuF.OS  A-t:  Tnh  COuRuo.  uF  IHL  PROCEEDING  PARALLEL  A  JO  i  Hr 

C.  *#**  4TH  AND  5Tn  ARE  THE  RuTUinN  PARALLEL  OF  THE  CONTOUR. 

MDFI  SKR  PTR  +  SH I  FT ) =XN 
MUFISKRPTR+SHIFT+1)=YN 
MUF(  SKRPTR+2)=3200J 

IE  (R.M6  AK.NE.D.  )MOF(  SKKPTR*2)=(  -32./RMBAR) 

MO  FI  SKR  PTR -SHI  FT  4-3)  ^XP 
MDFI SKR PTR- SHIP  I +4 1  =  YP 

SKPPTK  =  SKRPTR4-5 
FLPTR=FLPTR+2 

IF IFLPTF.LT .MJFITPTR I-2IG0T02 

FLPi R  =  MDF(TPTR  )♦  l 
SKPEN’J=SKPPTR-S 
SKRPTR=MDF( 3* 

ASSIGN  b  Tu  LCJLP 

r.  *<**  RETRIEVE  THE  PAR  AM.  INFL.  OF  THE  PRLCEEDING  PARALLELS 
8  i*  Ml=F  LOAT  IMOF ( SKRPTR+2 ) )/32. 

F M 2=  F L 0 AT  IMDFI SKRPTR+7) »/32. 

Xl=MUF (SKRPTR) 

Y 1  =Huf  (  SKROTM-1) 

X2-MUF  (  SKRPTR4-5) 

Y  ?.  =ML)F  (  SKU  PTR  ♦  6  ) 

SKRPTR=SKRPTM-5 

IF (SKRPTP .EC.SKkEUJ) ASS IGN  9  TC  LOUP 
UO  TO  12 

■1  ASSIGN  10  TL  LCLiP 

C  ****  RETRIEVE  THE  INFO.  ON  THE  ENDPOINT  OF  THE  SIMPLE  PATH  SET 
X1=X2 

Y  I  =  Y2 
KM  1=  RM2 
RM2=-< l./RMl ) 

X2=ML)F  I MDF  (TPTRI-2) 

Y2=MUF (HOF(TPTR)-l) 

SKRPTF^  3KRPTR+ t> 

GO  T( .  1  2 


a  U  Al=''IGF(SR'"PTi'_2) 

Yl= AOf ( SKkPTH-  1) 

ASSIGN  11  TO  LOUP 
GUT012 

L  ****  ,-» liT K  I FV  C  THE  FA  R  AH  .  INFO.  <-i\  T Ht  a L  T UP N  PARALLELS 

1!  ;<Ml=FLGATMDFlSKF0TR-3)  )/i  2. 

HM2=f  L(  AT  (M  DF (  SoFFTF-d)  )/J2. 

Xl=MDF ( SKRPTP-2) 

Yl  =  MOF(  SKF.PTF.-1J 
X2=MDF( jKRPTP-7) 

Y2=MOF  (  5KPPTF-M 

SK  KP  7k— SKPPTKr5 

IF(SKPPTP.EO.MOM3>«-S)ASSICN  li>  70  LOOP 

C  ****  UNO  THE  IN7  £P  SECT  t  ON  PCINI  OF  ADJACENT  PAPALLES 

(„ 

c  *  if  their  slopes  ahe  fcual *  select  and  endpoint  as  an  i  mt er>cci  ion 

12  1 F  ( P  M 1  •  tU  «SM?  )  al.TlJ  L  3 

Rai=Yl-RMl*Xl 
P82=Y2-PM?*X2 
X=  U132 -iMJIJ/IF  ^l-f.M2» 

Y=  RMi  *X  +  RB 1 
GO  Tlj  1  h 


12  X=X1 

Y  =  Y  l 

C  ****  STUFF  THE  Hoi  WITH  T Ht  TERRAIN  CONTOUR  ENDPOINTS 

14  HOF ( F  LPTR ) =X 

MUFIFLPTR+1)=Y 

FLPTR=FLPFR+2 

Go  TO  L 00 P  t ( 8  *  N  1 1 0  *  1 1 # l 5  ) 

18  SKKPTR=SKRPTR-5 

M0FIFLPTP|=MDF(SKRPTR*3I 
MDFIFLPTP>1)=MDF ( SKRPTP+4) 

MOFI  F  LPTR4-2  )=MOF(  SKRPTR  > 

MOF I F  LPT R*2 ) =HDF  < SKRPTR *1 ) 

MDF(FLPrk+4)=MCP (MJFITPTRJ+7) 

MUF(FLPTR  +  3»  =  MUF<M0F(TPTR>  +8  ) 

FLPTR=FLPTR-F6 

WF  UP  7  R  =MuF I  TPT  R ) 

Hl)F(  WRUPTP  )=FLPTP 

CALL  GE0F(MUF(TPTR+2JI 

CALL  0RWSGS<H0F(WR0PTR+2I , FOF ( WROPT  R+7 1 ,M0FIWRDPTR»-KRDPTR-7 ) 


I 


» 

I 


Ft- TURN 
END 


non 


I- UNCTION  I  OCT  (X|Y»XI«Y1»X2«Y2) 

C  RETURNS  BINARY  CCOfc  INDICATING  WHICH  LF  NINE  AREAS  THE  POINT 
('.  t  X  ,V  I  is  Lu’CATLU  PELATIVt  TC  a  SPcCir-ItO  RECTANGLE 

X,Y  :  POINT  OF  INTEREST 

XL.Yl  :  LOWER  LEFT  CORNER  OF  RECTANGLE 

X2.V2  :  UPPER  RIGHT  CLRNER  OF  RECTANGLE 

1  N  T  r  GL  ■"  X,Y,Xl  ,Y1,X2.Y2 
IOCT=j 

IF  (X.LT.XI)  l OCT  = IUCT  +  1 
IF  IX.GT.X2)  IOCT=lCCT+2 
IF  (Y.LT.Y1I  I OCT= I  OCT  *4 
It  (Y.GT.Y 2)  ILCT=IOCT*a 

RETURN 
FND 


I 


V  «s 


***  FUNCTION  ACTLENI  ICLDE  ) 

***  INPUT:  ACTION  oIT  CODE  iCOOE 

***  OUTPUT:  RETURNS  NUMBER  OF  HITS  SET  PLUS  ONE,  I.E.. 

Uf-*  THE  ACT  I  UN  RECORD  L  EN.jT  H 


I  IUl 

ACTLEN 

NAME 

ACTl.cN 

EXT 

SSE 

ALTLEN 

ENTk 

CALL 

$SF 

DAT  A 

L 

i  coot 

o  SS 

1 

L  OAE  v 
TZX 

T  ZB 

IC(  OL 

LOOP 

XAN 

I8R 

L  R  L  A 

I  XR 

1 

S  RE 

SXTN,  7,1  +  0 

J  MP 

I  BP 

T  BA 

LOOP 

R  ETU* 

ACT  LL.N 

bXTN 

J  AT  A 

1 6 

I  >-R 

1  BP 

END 

SUBRUUT1 Nfc  EVTINT 

AT  FIRST  PASS  SET  MDF ( 4)  Tl  THE  BEGINNING  OF  THE  EVENT 
FILE,  SET  MUF (MOF 1411  TO  THE  START  OF  THE  FIRST  tVENT 


r, 


Ci  MMCWMOF  ILE/MGFI  30uu  »  .MJFKAa 
IF  (MOFI^-I  .NE  .0  )  RETURN 
HOF  I  4)=MUH  3) 

MDF(3)=M0F<4|«-3 

ML) f  (  MOF  t  4  ) )  =  MD  F  l  4 1  3 

MOFIMDF  <  4  I  *1 »  =  U 

M.IF  ( MDF  { 4  )  +2 )  =  0 

FE  TURN 

END 


o  o  o 


SUBROUTINE  MDEIlIICCDE) 

COMMGN/MOFILE/MUFI 3000 i .MUEMAX 
COMMGN/E I LE  S/F 1LNUM  t FC8 ( 1 3  I 

ccmmgn/cmcm/untcnt  ts efcn  r 

CuMMCN/PPObLK/  T  I  ME 
IMPLICI1  I  NTFutf-  (A-Z) 

01  Me  NS  I  ON  JUMMY15) 

C  F  EADS  FROM  UR  WRITES  TP  3 1 SK  STORAGE  OF  WORKING  FILES 

I C Due  :  I/O  GOOF. 

1  REA.) 

2  WRITE 

CALL  ViCPFN(I3,la,FC8f0) 

FCElA)  =  (rIL  GUM  -I  )  *6  u  *■  1 
GUMMY!  n  =  UNTEUT 
DUMMY (Z  )  =  T  I  ME 
GC  10  ( 10  1 20 1 • ICUUc 

10  READIES)  DUMMY  ,  Mf)F 

u i i  TO  3  0 

?'  WkITF.  IlSIOU  MMY  *  HOF 

30  CONTINUE 

CALL  WiCLOS(lS.O) 

UN  TENT  =UUMMY ( 1 ) 

TIME  =UUMM Y ( 2) 

r c  TU  KN 

ENU 


« 


SUBROUTINE  MGFSHFITGTAL .START) 

CuMMCN/U INFP/RCDSIZ 
CCMMGN/MiTF  I  Lt/MuF  (  3000  )  .MJFMAX 
IMPLICIT  I  mTEGlF  (  A-LI 

C  **%*  SHIFTS  MuF  Tu  C  0  F  AT  fc  JP  ufcLET  t  SPACE.  JSES  'RIPPLE*  SJu^ 
C  ****.  UPDATES  ALL  .•’.OF  POINTERS  EFFECTED  BY  THE  SHIFT 


» 


» 


§ 

t 


“V-; 


UT  t  ic 


-c*  *i 


UN  I  T  S  =  HUI  (2) 

I  R  I  END  = MOF  (  UNI  I  ^  » 
lNENY=MDf<  JMT  Sf3I 
FUCNT=rtOF  (UNITS) 

EUCNT=MOF(UNIT 6+1 ) 

GCUUNT  =F  oC  NT  +  c  Jtt-f 
t  SKRPTR.  =  Mi)F  (  3) 

EVTP  1  i-  4) 

c  ***-  find  the  ScCtion  np.  the  mof  that  the  shift  «ill  occur 

c  ****  AND  UPUATE  THL  APPROPRIATE  PUiNTERS 

It  (START. .>T. UN  II  SJ'jlT'-I  t 
f-.JF  (  2 )  =.TJF  (  2  •  +  T'jT  AL 

10  I F  (  ST  AR  T  .  GT  .FR  I  END  )  GO  TC  20 
IF  (FUCftT.EC.u )  GO  TO  20 
MJ F  I  UN  I T3+  2  I  =‘30F  (  Uf(  I  T  S+  2)  ♦  TLTAL 

20  IF  (START. GT.tMt.SY)  GOTO  30 

IF  (EUCNT.EC.U)  Gu  TO  3C 
MO F( UN  ITS +3  I =MUF (UNITS ♦31  + TOTAL 

3-  IF  ( UCOUNT.EO.w)  uJ  TO  38 
i JO  ?  5  I  =  I  « UCUUNT 

P  T  *•'  PT  R  =  F  '  I  oNu  ♦  I  *  P  COS  I  2- 1 

IF ( START. GT.M0FIPTRPTR1 IGCT035 
MOF ( PTFPT  P ) =MJF { PTPPT  P ) +TUT  AL 
35  CONTINUE 

3rt  IF  (START  .  o T  .  SK  w  P T  P  )  GO T  0  40 

P  DF ( 3  )  =  MOF ( 3 )  +  T  jT  AL 

40  IF  (START. GT.fcVTPTR)  GC  TO  50 
MOF (EVTPTRJ=MDF(EVTPTR) ♦TOTAL 
MOF(4)=M0f ( 4  I fTuT  AL 

SO  CALL  r  [PPLE(TOTAL, START,  MUF.MOfMAXJ 

RETURN 

END 


I 

> 


o  n 


SUBkLUT  INt  RIPPLEUTOTAL.I  SI  AkT  ,  ARR  AY  .  LENoT  H) 

IMPLICIT  INTEGER  ( A-Z  ) 

DIMENSION  APPAYI1) 

****  SHI  Flo  PLFTIuNS  OF  ARRAY  JP  OP  DORN  TO  PACK  TIGHTtK  u 


r 

CREATION  OF  EXT-rA  5  PACE 

C 

ITfiTALi  TOTAL  NUMBER 

OF  fcuGR 

US  TO  SHIFT 

C 

I IT0TAL>0 

SHIFT 

OOWNI 

(. 

(  I  T()TAL<  ) 

SHIFT 

UP  ) 

I 

# 

I 

» 


i-'  ALL. 


*  zz* 


l ST  A- T  : 


PuS  I  T  I  CN  II \  ARRAY  II  Jtol'-i  SHIFT 
(SHIFT  CUMlSOtb  TC  END  LF  FILE) 


IKITuTaL)  30,60,  L  J 

jF  l  f  i  L  l  tl  I'i 


I  i  r ►  =  L  C NG  Th- 1  i  F  I  AL 

IOIf F=IPTP-1ST AfT+1 
IFUOIFF  .LE.  0)  GU  TO  50 

Ju  EG  1=1,1U1FF 

Ar  R  A  Y(  I  PTr.+  l  TjTAL)=Akt-  AY(  I  PTn) 

I  P  TR  =  ! PIR-1 
P.U  CUNTINUE 

GO  TC  60 

C  SHIFT  GP 

}.  IF ( I  ST  Ar  T  .LE.  I ABS ( I TGTAL  I  I  Gu  TO  5J 
I  p  TP  =1  START 
IDIFF=LENGTH-I START+1 

GO  40  1  =  1,101)  F 

ARRAY*  IPTK+  ITT  TAL)= ARRAY! I PTRI 
1PTR=IPTR+1 
40  CGNTINUF 

GU  TU  60 

C  EKrtr';  IN  PAR  AF’cTEr.i  CAoSF  SHIFT  TL  BE  IMPOSSIBLE 
50  CALL  GHLT 

HR  ITE!  1,10001  TOTAL,  I  START  .LENGTH 

1000  FCJRHATC9A0  FILL  SHIFT:  T  CT  AL=  •  ,  15  ,  •  ST  ART=  •  ,  1 5  ,  •  F  I  L  t  LtNGTH=*  ,i  5) 
CALL  GSTTO.o) 

4 G  RETURN 

END 


sub* CUT  INt  SwPiuMt I APY , JARY.NWRDS) 

C *********  SWAPS  A  ScT  OF  DATA  *ITH  ANCTrtfcK  SET 
Ul MENS  ICN  IARY(1),JARY( U 
uu  1C  l-l»i.n*jS 
JT= I  Ah Y (  I  ) 

1  AHY  (  i  I  ~  J  A  r.  Y  (  I  1 
10  J A  RY  ( I  1  ■=  JT 

b c  TURN 
ENC 


non 


SUt5"  '  Jl  IN-  '■(■vt  .11  I  1  il  cM^i  !jtVi  I  X  *  1  Y ) 


f.  THIS  f’.'M  TINF  =>rPCS!  T1UNS  a  GIVEN  t.f»T  I T  Y  •  s  PEFL-.ENCE 
C  H  I  ,T  Lt  L -1 1  tu  i'.  ELblfcNTS  1  AJ_.  2 

C  THE  f  M  (TV  St  '  OLD  ol  ) cF  I  K FO  F  t  L  A  T  !  V&  T  ■_  THIS 
C.  a  It1  c'il  i  POINT 

The  PCI  NT  IF  REPOSITION  m  1 LL  tt  DEFINED  BY  THE  LOCATION 

fF  I  HE  INDICATE,}  DEVICE  AND  !j  f  ETORNED  IN  THE  VARIABLES 
IX  AM  IY 

C  I  E  %  T  1  : 

C 

C  I  ENT  2  : 

C 

C  I  DEV  : 

C 

c 

C  I X  t  I Y  5 

c 


MI  N=u 

RAX=  U23 

i.  A  L  L  Gt.ivTtIEf.T2) 

C-*  LL  jSTTtGti-l 
IF  (1  DEVI  10*20,  DC 

C  EIGHTEEN  FCUTINE  NUT  WCFKING.  .. 

lu  lA=Sfc 

1  Y  =  5uc 
MAftG  I  N=U 
Gli  TO  40 

C  o  r  T  o  T  I  Ci*  '  t  U 1  I  Hi 

2  ■  L  A  LI  ODEVt  I  l'E  V  ,  lx,  l  Y) 

MA SGI *=500 
GO  Tt)  40 

C  T  ••  ACK  FALL  -  t,oT  I  Nl 

CALI  >0i  V(  ICEV  ,  IX,  l  Y) 

I  X  =  I X/  4 
l  I Y=I Y/4 

MARu I N=  50C 

|  C  L  ALL  Jl  AT  i.  GC'-tlN  Loci-  JlNATES  AND  *  L  PUS  I  T  i  JN  tNTITY 


I 


He  \u,-ti)L  “■  L.r  THc  ENTITY  Gt-lHo 

c  ch  ck  ENCcU  fiEF'Jf'  E  CALL  ING  4JV,:HT 

THE  NUMBER  uF  THt  ENTITY  THAT 
WILL  EE  REPCSI T I ONED 

THE  oEVICE  To  HL  INTERS JoATc j 
Hi  Tt  ACKbALL 
0  JOYSTICK 
-1  EIGHTEEN 


THE  SCPEtT  CGi  BDlNATcS  AI  *HlCtl 
THE  c  EP-JSIT  IuHING  OCCURS 


« 


<3 


.<-•10 

'*  £  .’i  * 

;  . 

.  /  =  •  f  *  »  a  , 

;  , 

If  (IX 

.LT. 

M  1.4  I 

If  fix 

•  CT  • 

MAX) 

if  (i  r 

•  LT. 

*I*> 

IrtlY 

.  >T. 

>iX  ) 

A  L«  , 

-  ,r  < 

;  »  i  .  - 

CALI 

=•  >7  < 

>,11  ", 

JMitSTl  .HS.  C. 

frf. 

ENC 


IA=MlN 
I  X*MAX 
If**!* 

1  Y  =  ^AX 
<) 

if  ,Ci 

CALL  CENHIEVTIJ 


SUBRCUT  INE  SET  PNT I  I  ENT , IOE V , I X, 1 Y, I  KEY) 


C  L/ES  IGNAT  £S  A  POINT  ON  THE  SCREEN  BY  USING  THE  CURSOR 


C 

c 

c 

c 


c 

c 


I  ENT  :  ENTITY  LAST  REFERENCED  BE EURE  THE  CALL 

IOEV  :  DEVICE  TO  BE  INTERROGATED 

♦1  TRACKBALL 
0  JOYSTICK 
-l  ligftpln 

lX.IY:  CUGFOINA1ES  CF  ACCEPTED  POSITION 

IKEY  :  FUNCTION  KEY  TO  SIGNIFY  ACCEPT  IO-3I) 

01  MENS  I  oN  KEYRGV.U) 
lOUF  SR=1 
1 R  CK  =  4— I  KEY/ 8 


Of)  10  1*1,4 
KEYROW ( I)*CI 

IMI  .EQ.  IRON)  KEY  RUN  (  I)=2**(  I  KEY-8*  (4-1  )  ) 

lu  CONI  INUF. 

CALL  LAMPS (KEYROW! l ) ,KEYRUW<2) .KEYROW I  3 ) , KEYROW ( 4) ) 
CALL  GSTT(O.O) 

CALL  GECNI I  CUR SR ) 


C  LC.-C.ATt  DESIRED  POINT 

20  CALL  MQVENT(IENT,ICURSR,IDEV,IX,IY) 
C4LL  CKINT(KFY) 

IF (KEY  .NE.  IKEY)  GO  TO  20 
CALL  GECF { I  CURSE) 

RETURN 

ENU 


o  r 


SUBROUTINE  StLECTI  JPTl CN, CHOICE ) 

COMMON/ BRANCH/lJK  TURN 
IMPLICIT  INTfcGtK  (A-C.E-ZJ 
LOGICAL  DRTURN 
URTURN*. FALSE. 

ROUTINE  ENABLES  USER  TO  SELECT  jNE  OF  A  LIST  OF  OPTION*. 
OPIIUNS  APE  DISPLAYED  IN  RED  ON  THE  LEFT  SUE  UF  THE  SC  -  EE  ’J. 
USER  MANIPULATES  A  POINTING  CUKSCk  THAT  PRECEEOS  THE 
CHARACTERS  CF  THE  PCINTEO-AT  OPTION. 

OPTION  NUMBER  CF  MEMBERS  IN  LIST 

CHLICE  RELATIVE  POSITION  IN  LIST  OF  CHOSEN  JPTluN 

TORN  un  THE  LIST 
CALL  ONSEL 

C  ****  LIGHT  THE  ACCEPT  AND  REJECT  KEYS 
CALL  LAMPS! fc4»  u«Uf  3) 

C  ****  POINTER  'INC'  IS  0  AND  POINTS  TO  THE  FIRST  OPTION  IN  The  LIST 

INC=0 

C  ***»  POSITION  THt  CURSOR  PUIRTER 

CALL  GENTII) 

CALL  GPUT( 1,100,-399,0) 

CALL  GPUT ( 2 .llO.SS  7 1 0  J 
CALL  GECNI 1) 

C  ****  CULOR  THE  FIRST  ITEM  IN  THE  LIST  GREEN 

CALL  GENT! 1001 > 

CALL  GPUT  I4i  140«i>«  I ) 

CALL  GPUT(4,I40,G,ll 

C  ****  POLL  THE  FUNC.  KEYBOARD  FOR  AN  ACC tPT/RE JECT 
1  CALL  CK INT ( KEY ) 

C  ****  HAS  THERE  BEEN  A  REJECT 
IF (KEY.NE.O)GO T02 
INC* INC*1 

IF IINC.E0.OPTIUN)INC=O 
Y=  957- I NC*  SO 

C  ****  COLOR  LAST  ITEM  RED  AGAIN 

CALL  GPUT  C4»140»5»DI 
CALL  GPUT (4*140*6*0) 


C  ****•• 

c  **** 
**** 
**** 

c  **** 
c  **** 


L  ****  REPOSITION  CURSOR 

CALL  GENT  (  1  ) 

CALL  GPUT(2,110,Y.0I 

C  ****  COLOR  NEW  ITEM  GREEN 

CALL  GENT{  luJlHNC) 

CALL  GPUT (4,140,5. l> 

CALL  GPUTC4, 140,6,  I) 

GO  TO  l 

C  ***=*'  HAG  there  a  el  n  an  accept 
2  IF (KEY.NE. 11G0T03 

c  ****  BEFORE  RETURNING  MAKE  CHOSEN  ITEM  RED  AGAIN 


CALL  GPUT  <  4,  Uu,  5, 01 
CALL  GPUT (4,140,6, J  1 

CHU ICE= INCF1 

C  ****  TURN  OFF  THE  LIST 
CALL  LF'rSEL 

C  ****  FILL  THE  LIST  WITH  8LANKS 
C  ALL  ELKS  EL 
CALL  GECFI1I 
CALL  LAMPS! 0,0,0,01 
1 E  T  U  *  N 

C  ****  HAS  USER  HIT  RETURN 

3  IMKEY.NE.301GCT04 

CALL  GPUT(4, 1^0,5,01 
CALL  GPUT(4, 140,6, 01 

CALL  CFFSEL 
>  CALL  BLKSEL 

CALL  GE0M1) 

CALL  LAMPS (0,0,0,01 

I 

OR  TURN= . TRUE . 

|  RETURN 

4  GUTUl 

I 

I 

• 


SUBROUTINE  SELFI L( FI  LI G» 

C0MMCN/FILES/F1LNUM,FCB!13  ) 

COMMON/ BRANCH/ORTURN 
IMPLICIT  INTEGER  U-C.E-Z) 

LOGICAL  DRTURN 

C  ****  ALLOWS  USER  TO  SELECT  A  SCENARIO  FILE  FDR  INPUT/GUTPUT  (DISK) 

CALL  GHLT 

CALL  GSCHt 1000*6) 
wK  ITE (  15, iUOO) 

1000  FORMAT ( 'SELECT  A  SCENARIO  FILE') 


1001 

CALL  GSCHI 1001,6) 

W* ITEC15, 1001 ) 

FORMAT ( ' SCFNAP lo  FILE 

* 

C  NE '  I 

1002 

CALL  GSCHI 1002,6) 
WRITE! 15,1002) 

FORMAT! 'SCENARIO  FILE 

TWO*  ) 

1003 

CALL  GSCH! 1003, c) 
WRITE!  15,  1003) 

FORMAT ( ' SCENAR 10  FILE 

THREE* ) 

1C  OR 

CALL  GSCHI 1004,6 ) 

WF ITE! 15,1004) 

FORMAT! 'SCENARIO  FI LE 

F  CUR  ’  ) 

CALL  GSTT 10,0) 

C  ****  SUBROUTINE  ALLOWS  USER  TO  SELECT  OESIREO  FILE 
CALL  SELECT !4»F1LNUM) 

IF (ORTURN ) FETURN 

C  ****  SUBROUTINE  DOES  THE  REQUIRED  INPUT/OUTPUT 
CALL  GHLT 
CALL  MDF IO(FILIG) 

CALL  GST  T 1 0  ,01 

RETURN 

END 


C  ****  ROUTINE  ALL  uw.s  JSER  7u  SELECT  A  TYPE  UF  MOVEMENT 

OP  TNUM=  5 

CALL  GHLT 

C  ALL  GSCH! 1000,35) 

WE  lit  I  15,1035) 

1035  FORMAT ( 'UNIT  MOVEMENT' ) 

CALL  GSCH( 1000,6) 

WRITE! 15,1000) 

1 JOO  FORMAT (• StLLCT  MOVtMfcNT  TYPE') 

CALL  GSCH( 1001,6) 

WRITE! 15,1001) 

1001  FORMAT! 'SINGLE  UNIT') 

CALL  GSCH! 100?  ,6) 

Wk  ITE!  15, 1032) 

1002  FORMAT! • DIRECT lUN-DEPENUEN T •  ) 

CALL  GSCH! 1003,6) 
wR ITE! 15, 1003) 

1003  FORMAT!  •  F  I X  EG- Pi.lNT-DE  PEND  EN  T '  ) 

CALL  GSCH! 1004,6) 

WRITE! 15,1004) 

1004  FORMAT  1 'COLUMN') 

CALL  GSCH! 1005,6) 

*R  ITE!  15, 1005) 

1005  FORMATI'LEAPFROG* ) 

CALL  GSCH! 1007,6) 

WRITE!  15, 1007) 

I0u7  FI  RMAT ! 'SELECT  RETURN  WHEN  DONE') 

IF !CLTYPE.E0,0) GOTO 10 
0PTNUM=6 

CALL  GSCH! 100b, 6) 

WRITE!  15, 1006) 

1006  FURMAT  ( 'PREVIL  US  DE  F  I NE  D  C  LUSTE  F  '  ) 

10  C^LL  GSTT! 0,0) 

C  ****  ALLOWS  USER  TO  SELECT  ITEM  FROM  ABOVE  LIST 
CALL  SELECT!OPTNUM, TYPE ) 

RETURN 

END 


IW  ! 


SUBROUTINE  SFLNUJlENTl  ,  ENT  2 , EL , CHUl CE , X , Y  ) 

LGMMC'N/aRANCH/GKTURN 
IMPLICIT  INTEGER  IA-C.E -L) 

LOGICAL  DRTURN 
DRTURN=. FALSE. 

C  ****  ALLOWS  JSLh  TO  JPAw  1HE  PAIR  GF  A  UNIT  USING  'WAITS'  VI J  MjVLS' 
f  P  T I gN=  2 

c  ****  TURN  LN  THE  LIST 
CALL  FTHMSG 

Call  unsel 

C  ****  LIGHT  THE  ACCEPT  ANO  REJECT  KEYS 
CALL  LAMPS ( 64*  G.O,  3 ) 

C  **=-•*  POINTER  INC  IS  ANU  POINTS  TO  FIRST  OPTION  IN  THE  LIST 

INC=0 

c  ****  POSITION  THE  CURSOR  POINTER 

CALL  GENT  III 

CALL  GPUTd, 100. -399.0) 

CALL  GPUTI2.110. 957,01 
CALL  GEONdJ 

c  ***»  LLLOf  THE  FIRST  ITEM  IN  THE  LIST  GREEN 

CALL  GENT ( I JO l ) 

CALL  GPUT(4»140,5)»  I) 

CALL  GPUT 14, 140,6, l ) 

C  ****  PULL  THE  FUNCTION  KFY3UARJ  FUR  AN  ACCEPT/REJECT 

t  CALL  CK I  NT ( KEY ) 

CALL  MOVENT (ENT1.ENT2, l«X,  Yl 
CALL  GPUT (EL,53«X,Y) 

C  ****  HAS  THERE  BEEN  4  REJECT 

IE ( KEY . NE.0IGJT02 

INC= INC* I 

IF  (  I NC. EO. OPTI CN) I NC=0 

Y=S5>7~  INC*  50 

L  ****  COLOR  LAST  ITEM  RED  AGAIN 

CALL  GENTUOOll 
IF  dNC.EO.OJCALL  GENTI1002I 
CALL  GPUT (4,140,5,01 
CALL  GPUT (4,140,6,0) 


J 


i-ir 


C  ****  hfcPUSTICN  CURSOR 

CALL  GEM (II 

CALL  GPUT(2,ILC,Y,GI 

c  ****  cgllr  iNjt w  i  r tM  green 

CALL  GENT  (  1001  fl  NO 
CALL  GPUT (4*140*5*1) 

CALL  GPUTI4,14Q,6,1I 

GCTUl 

C  ****  HAS  THPRfc  lit'rN  AN  ACCEPT 
2  If  (K.LY.NE.1IGJTU3 

C  ****  BEFORE  RETURNING  MAKE  CHOSEN  ITEM  RED  AGAIN 

call  glnti  ioouinc) 

CALL  GPUT  (<t»l4u»i>»G) 

CALL  GPUTI 4,140,6,0) 

CHuice= inc+1 

{,  ****  TUt-N  CLP  THf  LIST 

CALL  UFfSEL 

C  j-  ill  THE  LIST  wITH  BLANKS 

CALL  BLKSEL 
CALL  GEOF(l) 

CALL  LAMPSIO, 0,0,0) 

RE  TURN 

C  ****  HAS  USER  HIT  RETURN 

T  IF (KEY.NE.30)GUT04 

CALL  GENT  I lUOl  +  i NCI 
CALL  GPUT (4,I4C,S,UI 
CALL  GPUT (4,140,6,0) 

CALL  OFFSEL 
CALL  BLKSEL 
CALL  GEOFI 1) 

CALL  LAMPSIO, 0,0, 01 

Ok  TURN*  .  TRUE. 


) 

fat  ,**> 


M, _  _ _ »-  - 


t 


rETURN 


SUBROUTINE  SI  LNUMI NUMBER! 

CUMMON/  tSPANCH/OP  TURN 
IMPLICIT  INTEGER  (A-C.E-Z) 

LOGICAL  OR  TURN 

C  ****  p  PUT  l  NT  ALLu*S  USE  R  TU  Cu^STRUCT  A  NUMERAL  BETWEEN  A  JO  9  >9' 
C  ****  UiING  THE  FUNCTION  KEYBOARD  IN  A  CALCULATOR  PAD  TYPE  FORMAT 
C  ****  tCALCULATOR’  TYPE  PAD  AT  RIGHT  SIDE  OF  KEYBOARD ) 

DR TURN = .FALSE. 

CALL  u.JStL 

CALL  GSCHI  100'J  *3  5) 

lu  NUMGEP=0 

S  J  M=0 

P  LAC c= 1000 

CALL  CHLT 

HRITt(L5, 1000  I  NUMBER 
CALL  GSTT(Btj) 

CALL  L  A'^PSI  7  l  »  I »  7*  7  ) 

1  CALL  CK  INTI  KEY  J 

If (PLACE. NF.0IGCT02 

G  GI  G6 

2  IF { .NOT. ( KeY.LE. lu. AND .KEY.uc.B) >GuT03 
b I  01 T= 11 -KEY 

GO  TOV 

IF  I. NOT. (KEY. t L. 18. AND.  KEY  .GE. 161 ) GUTU4 

DIGIT=22-KLY 

G.  K  9 

4  IF  (  .NOT.  (KEY.LE.26.ANU.KEY  .GE . 24 ) )GGT05 

DI GIT=T3-KEY 

GO  TO 9 

9  IMkEY.NE.2)Gu1Co 

OIGI T  =0 
GOTO  9 

6  I F( KEY.NE. I (GOT  07 

CALL  l.FFSEL 


» 


CALL  6LKSFL 
CALL  L AMPS (0, 0»U , 0 ) 

RLTUR  N 

IF (K£Y.NE.0>GCiTG8 
GOTO  10 

IF (KLY.NE. -'OIGCTul 

i)OTU(<H=.TPltC. 

CALL  CFFSEL 
CALL  BLKSEL 
CALL  L AMPS! 0 ,0 ,u,Q) 

RE  TURN 

SUM=SuM+DI  GIT- PLACE 

NUMBER  =  SUM/ PLACE 
CALL  GHLT 

WRITbl  1%  1000  »  HUMBER 
CALL  GSTT  (0  »0  > 

PLACE=PLACE/10 

I  FI  PLACE.EO.OJ CALL  LAMPS! 0,0, 0,3) 
GUTLl 


SUBROUTINE  SEE  POS1 POSTUfi) 

IMPLICIT  INTEGER  <A-2) 

C  ****  A  LL  GnS  USER  TC  SELECT  A  UNIT  Cl'MBAT  POSTURE 

CALL  GHLT 

CALL  GSCH ( 1000  *6  ) 

WRITE! 15,1000) 

luO':  FORMAT!  •  SELECT  A  COMBAT  POSTURE*  I 

CALL  uSCrl  !  100 1,6) 

WRITE! 15, 1001) 

1001  FORMAT  !' OEFENS  IVE*  ) 

CALL  GSCH! 1002 ,o) 

WRITL! 15,1002) 

1002  FORMAT ( ‘CFFENS IVE* ) 

CALL  GSTT 10,0) 

C  ****  ALLOWS  USER  itLECT  ITEM  IN  ABOVE  LIST 
CALL  SELECT  12, PGSTU 0 ) 


SUBROUTINE  SEL PSP( RRCNTUI 
CO MMON/ BRANCH /OR TURN 
IMPLICIT  INTEGER.  (A-C.E-21 
LOGICAL  D->TU°N 

C  ****  ALU  «S  USER  fu  SELECT  A  PATH  SPEEJ  PERCENTAGE 
CODE=G 
CALL  GHLT 

CALL  GSCHl  lOOu  »t>  I 

WR  IT  £ ( 1 5 « 1000) 

LOOG  FORMAT ( • SELECT  A  PATH  SPEED' J 

CALL  o SCH ( 1001  ,6> 

WRITE! IS, 1001) 
luOl  KjRMaT ( ' MAX IMUM' ) 

CALL  GSCHI 1002,*) 

WRITE (15, 1002) 

1002  Format ( 1  nominal* ) 

C A LL  u SCH I  1 UO 3 , o ) 

WRITE! 1 5, 10o3J 

1003  FORMAT ('PERCENTAGE  MAXIMUM') 

CALL  GSCH (  lutJ4 ,  t>) 
w1-  I  T  E  (  15,1004) 

1004  FORMAT! 'NODE  MCuE  * ) 

CALL  GST  T ( 0,0 ) 

C  ****  ALLOWS  USER  TL  SELECT  ITEM  IN  ABOVE  LIST 

2  C  ALL  SELECT ( 4*  CCUt ) 

IF  OF  TURN)  RETURN 

IF ( COUE.NE .3 )GGTU5 

3  CALL  SELNUM! PRCNTG) 

IF (ORTUkN I GCTl  2 

IF (PFCNTG.GT.l0u)GUT03 

RETURN 

5  IF (CU0E.N6.2IGGT06 
PRCNTG®  80 

RETURN 

6  IF  (  CODE.  NE.U  GOTO  T 
PRCNTG® 100 

RETURN 


•Sr  -* 


SUBROUTINE  SEL REF ! PRCJRE) 

IMPLICIT  INTEGER.  (A-Z) 

C  **$*  ALOUWS  USE'  TO  SELECT  TC  GkAw  OR  'DELETE  REFERENCE  LINlS 

CALL  CHLT 

CALL  GSCHI 1COU  ,6) 

WPITE(15, 1000 ) 

LOGO  FORMAT! • Select  OBSlPEu  PRUCEOuPt') 

call  gsch! ioui »o) 

wRITE! 15, 1001) 

luOl  FORMAT ( 'CONSTRUCT  REFERENCE  LINES') 

CALL  G  SCO  !  1002,6) 

WE  IT  f! 15,1002) 

lu02  FORMAT  !' E  RASE  RtFE PENCE  LINtS*) 

CALL  GSTT (0,0) 

C  ****  SUdP.CUTNE  ALLOWS  USEf  TC  SELECT  ITEM  IN  ABOVE  LIST 
CALL  SELECT ( 2 , Rh  CURE  » 

RE  TURN 
ENO 


SUBROUTINE  SELilOlSIOEl 
IMPLICIT  INTEGER1A-Z) 

C  ****  mLLOkS  USER  TO  SELECT  UNIT  FORCE,  FRIENDLY  OR  ENEMY 

CALL  GHl T 

CALL  GSCHI 1000,61 
WRITE!  15,10001 

10  3;)  FuRMAI ( • ScLLCT  uiv.IT  FORCE') 

CALL  GSL'Hl  lOul  ,6) 

WFITfc(l5* 1001 ) 
luOl  FORMAT! 'FRIENDLY') 


CALL  oSCh  (  1002  ,o  I 
WK  ITt!  15,  1002) 


1002  F^KrlAl  (  •  ENEMY  •  ) 

CALL  0STT(J,01 

C  ****  SUBROUTINE  ALLOWS  USER  TC  SELECT  ITEM  IN  ABOVE  LIST 
CALL  SELECTJ 2, SIDE) 

RE  TURN 
LND 


# 

* 

t 


SUBROUTINE  SELSPU(PPCNTG) 

C0MMGN/8R ANCH/ORTURN 
IMPLICIT  INTEGER  U-C.E-ZI 

LCulCAL  ORTUPN 

C  **<•*  ALLOWS  J$Ffc  TL  SELECT  a  UNIT  SPEED  PERCENTAGE 
C0DE=0 
CALL  GHLT 

CALL  G$CH(  1000  *6  ) 

W<?ITE<  15,1000) 

1000  FORMAT ( 'SELECT  a  UNIT  SPEED') 

CALL  USCM  1001  ,<j) 

W?  IT  E  1  1  rj »  1  T o  1 ) 

IwOl  f  u  RM  A7  ( '  TAX  I  MUM '  ) 

CALL  GSCH( 1002. u) 

WRITE! 15,1002) 

1 G02  FORMAT < 'NOMINAL* ) 

CALL  :jSCh(  1003  ,  b  ) 

WRITE! 15, 1003) 

1003  FORMAT ( 'PERCENTAGE  MAXIMUM') 
oALL  GSTT(O.O) 

C  ***  +  ALLuWS  USER  T U  SELECT  ITEM  IN  ABOVE  LIST 
2  CALL  SELECT! 3, CODE) 

IF 1DRTUFN) RETURN 

IF  lL0JE,NE.3)GCT05 
CALL  SELNUMI PRCNTG) 

IF (URTU°N)G0T02 


►>KCMO=  l'Jv) 
ttlURN 


SUBROUTINE  SfcL  TER!  TTY  PE  ) 

IMPLICIT  INTEGER  (A-/) 

C  ALLOWS  U St-'r-  1C  SELECT  A  TEPMIN  FOR  DEFINITION 

CALL  CULT 

CALL  GSCHt lOCu  ,6) 

WPITE!15,1000) 

1  \j  00  FuFi'tAT  <  •  SLLFC  T  A  TERRAIN  TYPe') 

CALL  GSCn(  1001  ,-.,) 

WRITE! 15, 1001) 

1001  FORMAT  (•ROAD*  ) 

CALL  o  SCH  (  1  uG2 , o ) 

WRITE! 15,1002) 
lu02  FORMAT !*FlVtP*) 

CALL  GSCH! 1002,6) 

WPI1L!  15,1003) 

1,03  FORMAT  ( 'LAKE*  ) 

CALL  GSCHt 1004,6) 

WRIT  El  15, 1004) 

1004  FOPMAT ( 'CITY* ) 

CALL  GSCHt 1005, o) 

WR n Lt 15,1005) 

1003  FORMAT! 'HILL') 

CALL  G SCH I  1006  ,6 ) 

WR ITE ( 15, 1006) 

1006  FORMAT!' FUR LST») 

CALL  GSCHt  1  JO  ?,6) 

WR ITL ( 1 5, 1007) 

1007  FORMAT ( • PETUPN  WHEN  COMPLETED*) 

CALL  GSTT  t  0  ,u ) 

c  SUbFOUTlNE  Allows  USER  Iu  SELECT  DESIRED  TYPE 

CALL  SELFCT16, TTYPE) 

RETURN 

FNU 


SUB**  CUT  I  ME  SEL  riM{  TIME) 

COMMON/ PR08LM/ PT IME 

COMMON/ BP  ANCH/UMURN 

COMMON/ PPL AY/ INDEX* INTR VL< 41 .ENOTIM 

CUMMGi'i/MDF  I  Lt/MUFI  3000  )  *Ml)FMAX 

IMPLICIT  INTEOCk  <A-Z) 

LOGICAL  OKTURN 

c  ****  ALLOWS  THE  USEE.  TO  SPECIFY  A  TIME  WHICH  IS  LESS  THAN  OR 
C  ****  E  jU AL  TO  THE  PROBLEM  TIME 

I  CALL  GHL  T 

CALL  GSCH 1 1000 ,6 ) 

WRITE! 15,901) 

901  FORMAT < 'ENTER  NEW  VALUE') 

CALL  bSCH(  luOl ,6) 

W  P.  l  T  L  ( 1 5 , 90  2  ) 

902  FOPMATCFOR  PROBLEM  TIME'  1 

CALL  GSTT (0,0) 

CALL  StlNUM(HMTIM) 

Ir  I JRTUkN)  RETURN 
CALL  DECMINIHMTIM.TIMF) 

IF(TIME.GT.ENOTIM)GO  TO  1 

•H  TUR  N 
FNO 


> 


'.I 


rv 


y 


SOBS OUT  I Nfc  SEL  UNT ( UNT  PTR) 

COMM JN/MDF 1 LE/MDF ( 3COO ) »MQFMAX 
CuMMGN/UINFG/RCOSIZ 
CO MMCN/P K  ANCH/ Jr  TOR N 
MPL  It  I  T  INTEGER  C  A-C.c-ZJ 
LOGICAL  l) c  TURN 

C  ****  KOOTINE  ALLOWS  THE  USER  TO  SELECT  A  UNIT  WITH  THE  TRACKBALL 

UN  TE  N  T-  0 
TECRCL=E 
Td ALL=1 
ACCE  PT  =  I 
RTURN=30 
UPTR=MGF( 2) 

UC (  UNI =KUF (UPTKT+HOF ( UPTR*  li 
UC  NT  Ml  =  UCCIUNl  -  l 
Fr LPTE=uPTF +4 
OK TURN=. FALSE. 


CALL  .',hL.l(  TtlCr- CL  J 
oALl  s  EL  IMG 
CALL  i_  N  3 1  L 

1  CALL  rtUVf  NTUJNTLNT.TbCRCL,  T3ALC,X,Y  » 

CALL  CKllMl  (  KEY  ) 

G  \  IP)  ,<  =  , 

01  TAXL-2b 

UL  T  A  Y  l  =  2  b 

DU  2  J=0  ,  UcNTM 1 

OP)  K  =  Ff  L  PTK+J$r.COSIZ 

<jmtx=mi>f(upjp+4) 

OM  T  V  -Hu  F  (  JP  T  c  b  ) 

DELI AX=1 AES(  X-UNilX) 

DLLTAY=I AbS( Y-UNXTY ) 

If (OELTAx.Gl  .2b.0R. J EL T AY. GT. 2b) GOT  02 
If  Ii)CLTAX.GT.OLTAXi.{jK.ui:LTAY»<»T.JLIAYl  )  b  C)  I 
JLT  AXl=i)LLIAX 
GLl AYi=JcL TAY 
UMPTR  =  UPTK 

2  CONTINUE 

if  (ura  ptr.ne.c  )>,Li'j2 

CALL  CPUM  ?  ,HO,  3,  >) 

UN  I  r  C  T  =  ■  > 

CALL  LAMPj(b4»G»0»0) 

GC  TL  5 

i  Lii  I  'xU.‘1  =  .-I  OF  (  ut .1  PI  I  ) 

if  ( UN  7  ENT  .  t  C  •  fc  im  T  NU  ’’I )  Ijti  T  C4 

CALL  GPUT(3,130,3,0 J 
UUTENT=ENTNUM 
CALL  GENT ( UNT  EN  f J 
CALL  oPUTI  3  ,1*0,3,  L  » 

♦  CALL  L  Af'P j  ( t>4* '  ,  c  *  2  ) 

IF (KEY.Nt.ACCLPT)GOTUb 
CALL  GPU! (3,130,3,0) 

CALL  GEOF(TBC*CL) 

CALI.  fifFSEL 
CALL  uLKjEL 
R  E  T  U  P  N 

b  TF (KfcY.NE.KTUKN)GGTOl 

OR  TUPN= . TRUE • 

CALL  GPUTi 3, 130,3,0) 

CALL  GELf ( T  6C- CL ) 

CALL  iJFFSFL 
CALL  BLKSFL 
Ft  TURN 

EMU 


2&T7+ 


n  rv. 


SUBRUU7 1 Nfc  SELUSP( PRCORE) 

COMMON/ PRGBLM/ TIME 
IMPLICIT  INTEGER  (A-Z) 

C  ***r  ALL  IV. S  USE)  lu  SELECT  A  ON1T  3TA1L  MANIPULATION  PROLE. )U-L 

UP  TN  S=4 

CALL  GHLT 

C*lL  uSCHl  IGOj  ,  U 
WH I T  E ( 1 5, luOO) 

1000  FORMAT  !  *  SELECT  A  PROCEDURE*) 

CALL  GSCH( 1000 , 25) 

Wc'  ITU  15,1111) 
l ill  FUkhAI ( 'UNIT  STATE* ) 

CALL  G SCH ( 1 001 t6 ) 

WRITE ( 15. 10C1) 

1001  FUPMAT ( • AUO* ) 

CALL  GSCHI  l.)f.2,U 
Wf  1  T  t-  (  15. 1002  ) 

1 1)02  FORMAT  (  'DELETE  '  ) 

CALL  GSCH ( 1003  .6 ) 

.><-  ITE  (  15,  1003) 

1003  f  <.  KM  AT  I  ' R t  SUPP  LY ' ) 

CALL  GSCHI 1004,6) 

WR  IT  E  « 15,1004) 

1004  FORMAT  I 'COMBAT  POSTURE') 

IF  (I IML-.NE .0 IGUTU2 
CALL  GSCH(  1005.6) 

WRITEL  15,  1005) 

1005  FORMAT ( 'RELOCATE' ) 

t  P  TN  S=  5 


CALL  GSTT(O.O) 

****  SUBROUTINE  ALLOWS  USER  TU  SELECT  ITEM  IN  ABOVE  LIST 
CALL  SELECT (OPTNS. PRC ORE) 


U  E  T  U  P  N 
T  NO 


C  ****  ALL U u 3  USE K  lu  SELECT  A  UM i T  SIZE 

CALL  GHLT 

CALL  GSCH( 1000 ,61 
W-  I T  E  (  IS,  11001 

1000  RE -tAU 'SELECT  UNIT  SIZE*  J 

CALL  GSCH(1001,6) 

WRITE l 15, 10011 
1.101  FORMAT  (*  BRIGADE*) 

CALL  GSCHt 1002,6) 

WfsITH  15, 10u2J 
1002  FORMAT ('BATTALION*) 

CALL  GSCH( 1003, ol 
WK IT  E (  15,10031 
1)03  FORMAT ( 'COMPANY* ) 

CALL  GSTT(O.O) 

CALL  SELECT ( 3, SIZE ) 


HE  TOE  Ai 
ENO 


SUBROUTINE  SELUTT!  TYPE ) 
IMPLICIT  INTEGER  IA-ZJ 


C  ****  ALLOTS  USER  TO  StLFCT  A  O.xi  T  TYPc 

CALL  GHLT 

CALL  GS  CH (  1003  , t> ) 

WRITE! 15,1000) 

1(  0  ,  FORMAT  (' SELEC  I  UNIT  TYPE'  ) 

CALL  G SCU (  100 1,6) 

WRITE! 15, 1002) 

100?  FUSMAT ( ' APT ILLEPY*  ) 

CALL  GSCH ( 10o2 ,6) 

(iPITEUf,  1001) 

1001  FLF  MAT ( • ARMOR '  ) 

CALL  GSCH ( 1003  ,6 ) 

WRITE! 15, 1003) 

1 u  0  3  FLPMAT ! • INF ANTPY • ) 

CALL  GSCH!  1004,6) 


:SJ  C*. 


1004  )  U  RM  AT  (  *  Mt  CH  •  1  NR  AiNT  RY  •  ) 

f. ALL  G3CH(10o6«c) 

WRITE* 15,10061 

lu06  FuRMATI 'RETURN  WHEN  COMPLETE*) 

CALL  G 3 IT ( 0 ,0 ) 

****  bCBRcUTlNE  ALLOWS  USER  fu  SELECT  DESIRED  TYPE  Or  UNIT 
CALL  SF L  £CT(4, TYPE ) 

RETURN 
END 


SUBRLUT 1 Nt  ADUMSG 
CG MMGN/ PROBLM/ TIME 
IMPLICIT  INTEGER  IA-Z) 

CALL  GHLT 

CALL  GSCHI 1000  ,o) 

WRITE!  15, 1000) 

1000  PU  RM  AT  I  '  PLACE  UN  IT  WITH  TRACKBALL*) 

I  E  (  T  iNc.Ej.  '  )G(  UI 
CALL  GSUU  I00L  .ol 

WRITE! 15, 1001) 

1001  FORMAT ! 'ON  SCENARIO  BOUNDARY*) 

1  CALL  GoTT  (•.:,(?) 

R  L  T  U  «  N 
EfiO 


■a* • '  -» 


SUBROUTINE  BPT HMG 
IMPLICIT  I NTEGER ( A-Z) 

CALL  GHI.T 

CALL  GSCHI inou ,&I 
Wf<ITtII5,1000) 

1000  POPMATCUNIT  IMMOBILE  AT  POSITION*! 

C a LL  GSCh! 1 00 1 • u ) 

WD  1  T  I:  (  IS,  l'Jil) 

l1  01  FORMAT!'  INDICATED  ON  PATH1  ) 

CALL  G STT (0,0) 

RETURN 

END 


«*- 


SUBROUTINE  CLlMSG 
IMPLICIT  INTtGEK  (A-Z) 

CALL  GHLT 

CALL  oSCh(lOOO.fc) 

WHITE! 15.1000) 

1000  EURMAM'LQCATE  a  cluster  CENTER') 

CALL  oSCH!  loul  ,<-,) 

*R  IT L< 15.1001) 

1001  FORMAT !' WI  IH  T R ACK TALL / ACC E R T  KEY') 

CALL  GSTT(O.O) 

F  E TURN 
END 


SUBRUUTINL  CLFMSG!CGDE) 

IMPLICIT  INTEGER  1A-2) 

CALL  GHLT 

CALL  GSCH! 1004,6 ) 

WR IT  fc l  15,1004) 

1004  FORMAT ('YOU  MAY  REJECT  UNITS') 

CALL  GSCM  10u5,f>) 

0M\  m,20),tCut 

10  WRITE  US,  1005) 

1005  FORMAT! 'MAXIMUM  UNITS  SELECTED') 
GUT030 

20  WRITE! 15,1006) 

l.iOt  FORMAT  !•  •) 

JO  CALL  b ST T I  0,0) 

RETURN 

END 


SUBROUTINE  OFT  RMSt CLASS  ) 

IMPLICIT  INTEGER  ( A-Z  > 

LALL  GHLT 

GC  TL  (2, 1)  .CLASS 

1  CALL  GSCH (  IOOO ,  6 ) 

WKITtt I  5, 1000) 

1000  fCRMAIl  'CCNjTP  JOT  CONTOUR  rt  1  Tri  *  ) 

CALL  GSCHt 1001,6) 

WRITE! 15,1001) 

1001  FORMAT ( 'TRACKBALL  AND  ACCEPT  KEY*) 
CALL  GSTT(O.O) 

R  tTURN 

2  CALL  GSCHt >1000. fa) 
hR ITEl 1 5, 1004) 

1004  TOR MAT ( ' CONSTRUCT  PATH  WITH*) 

CALI  oSCHt lOOl.fa) 

W° I Tt ( 1 5, 1001) 

CALL  oSCHt 1002,6) 

W*  ITut  15,l()o3) 

1'  03  Fl'RMAI  ( ‘LAST  NjOt  SELECT  RETURN') 
CALL  GSTT(O.O) 

return 

lnu 


SUBPUUTIfiE  OSTrtSG 

IMPLICIT  INTEGER  ( A-Z) 

CALL  urilT 

CALL  S  C  H  (  luou  it  I 
WRITE! 15, 1000) 


1  -I... 


f  r  :<M  AT  (  •  L'  'C  AT  l  A 


Jff  ST  i.'niAT  I  r  n  •  j 


CALL  0SO*(  iool  ,  6) 

WRITCU5.  Ui 01) 

1001  FL  PM AT ('WITH  T  Ht  TR  ACKEALL 1 ) 
CALL  OS T  1  (  :■#>.) 

rl  T  U  "  i  V 

tNO 


*• 


SUBROUTINE  FCRCESI ISIZE.ITYPE.IEL) 


r.  jK  AV»S  A  PICTURE  REPRESENTING  A  JN  f  T  AS  DESCRIBED 
C  BY  I>ih  PA«AMFTtF.  LIST 

C  ISIZ6  :  THE  SIZE  OF  THE  UN  I  T 

C  I  BRIGADE 

C  2  BATTALION 

L  3  COMPANY 


C 

c 

c 

c 


ITYPL  :  THE  TYPE  OF  THE  UNIT 

1  ARTILLERY 

2  ARMOR 

3  INFANTRY 

4  MECH.  infantry 


I=d 


CALL  GPUT  (  I  EL •  1 740, G* 1  I 
IEL=IEL+1 

CALL  OPiJl  (ill*  /'J  I  » l  1 
IE  L=  I E  L  +  I 

CALL  GFuT ( ILL, 31, -4*1,0) 

I fc  L= I E  L+  l 

CALL  GPUT ( ILL,  52 ,-2* I »0I 
ItL=lEL+l 

CALL  oPUT( l EL, 5L ,4* 1,0) 

I  c  L= IEL+1 

CALL  GPuT ( I  EL, 52  ,2*1 ,0  ) 

IE L= IEL+1 

CALL  GPUT! I  EL, 70, -2*1, -I) 
IE  L=I  E  L+ 1 


C  DRAW  COP  L C  T  SYMBOL 

GOTO ( BO , 70,60) ,ISIZF 
C  COMPANY  SYMBOL 

60  CONTINUE 

CALL  6PUT( ILL, 72,1 ,0) 


ft 


I 

» 


% 


I  f.  L=  1  L  L  + 1 

CALL  UPJ1  I  ILL,  5?,1  ,0) 
i,.L=i  LL  +  1 

CALL  oPUTI ItL, 72, -2*1,0) 

IEL= I EL  +  1 

GU  TO  LOO 

C  6A I  TALI UN  SYMBOL 

70  CONTINUE 

CALL  GPUTI 1  EL, 70.-3.  I  ) 

I L  L=  I  E  L+  1 

CALL  GPUT  I  IEL, 52,1  ,  ) 

I L  L=  i  t  L  + 1 

CALL  GPUTI 1 cL, 7o»6« -I ) 

1EL= IEL+l 

CALL  GPUT I  I  EL, 5?, I ,0) 

It  L= IEL  +  1 

CALL  GPUfllEL, 70, -A, -2*1) 

I E  L-  I  E  L  +  1 

ot  T  C  1  V.H 1 

C  BRIGADE  SYMBOL 

(' . ;  Cui\T  I  NU  L 

CALL  GPUTI ItL, 7u»-S,l  +  l  ) 

I L L= I  EL  + 1 

CALL  GPUTI IEL,  1750,  I, 1  ) 

If  L=IEL  +  1 

CALL  GPUTI IEL, SO, 1HX, 01 
ILL= IEL+l 

CALL  GPUT 1 1  EL,  1740, u,l» 

It  L=  i  L  L  + 1 

CALL  GPUTI IEL, 70, -9, -1-1) 

IEL= IEL+l 

lo«»  UN1JNUF 

GU  TO  I  I1U,  1L.) ,  12o,  130)  ,1  TYPE 
C  APTILLEKY  SYMBOL 

110  CONTINUE 

CALL  bPOTI IEL, 7u,-6,-12) 

ItL=  IEL  +  l 

CALL  oPUT (ItL, 1750,1,1) 

IE L= IEL+l 

CALL  GPUTI ILL, 90, 1H*,0) 

IEL=  IEL  +  l 

CALL  GPUTI 1 LL, 1740,0, 1 » 
ILL=ICL+1 

CALL  UPUT! ILL, 7u, -8, 12) 

IEL*IEL+l 

GU  TCJ  1000 


APMtFEO  SYMBOL 


12,.  CuMlNuk 

C\LL  GPU1  l if L , 70, 12.-9) 

IcLMcUl 

call  gputiiel. i754.2,i ) 

IE L= IEL+1 

CALL  GPUT  (  I  EL  »  9i0  » 1MO»0  ) 

1 1  L= I LL+  1 

CALL  GPUT  <1  LL  ,  1  74>..,  U,  1  ) 

It L= ILL*  l 

CALL  GPUT< ICL. 70,-13, 131 
IEL= IEL+1 
GJ  TO  1000 

IN  FANTRY  SYMBOL 

130  CONTINUE 

CALC  GPUT (  I  EL*  130, 1 . 2  I 
It L= IEL+1 

CALL  GPUT  (  1  EL  »  50  ,2*  1,1) 
IEL-ItL+1 

CALL  GPUT ( I  EL  »  /I, -4*1,0) 
IEL= IEL+1 

CALL  GPUTI ILL. 53, 4*1  ,-2*I  ) 
IEL=  IEL+1 

CALL  GPUT! I  EL ,  71, -t*I,0) 

I L  L=  I  L  L  +  1 

CALL  GPgT ( I  EL, 50 ,2* I , I ) 
IEL=1EL+1 

CALL  GPUT I  I  EL , 13U, 1,0) 

I6L* I EL+1 

It  ( lTYPE.tC.3 )  GG  TO  1000 

MECH.  INFANTRY  SYMBOL 

CALL  GPUTtltL, 70,-5, -I-15) 
IEL=  I  EL  +  l 

CALL  GPUT I  1  EL.  1  750, 1,1  ) 

I H  L—  IEL  +  1 

CALL  GPUT ( I  EL , SO , 1  HO, 0 ) 

IkL=IEL+l 

CALL  GPUT ( I  EL,  1740,0,1) 
IfcL= IEL+1 

CALL  GPUTdLL,  70,-9,1  +  15) 
ILL* IEL+1 


1000  CONTINUE 
RETURN 
£N0 


SUBROUTINE  LOU  MSG 
IMPLICIT  INTEGER  U-Z» 


LALL  oS  Cri  (  L  004  ,  b  ) 

WK  1T& (  15,  1004) 

1004  FG  RM  AT (  '  0  EL  ECT  LEAD  UNIT*) 

CALL  GSTTio.O) 

El  TURN 
F.jD 


Subroutine  mbtbl 

IMPLICIT  INTEGER  !A-Z) 

REAL  ROUND 

Di  MENS  UN  LNTNUMI4) .SPEED! 7,4) 

DATA  SPEED/0,1  ,-5,6,  -14,15,-  25,0, 1,-5,  i,-  14,  15,-2  5, 
+  0«U*-1,  1,-2, 3,  -4, 0,1, -5, 6,  -14,  15,-2  5/ 

DATA  ENTNUM/ 2303, 2304, 2305,2306/ 


O'  l  1  —  1,4 

CALL  GBEG! ENTNUM! I ) ,1000,1000) 

CALL  GEOF ( ENTNUM 11)) 

CALL  COLOR C 2 ) 

CALL  GPUT < 5, 104, 3 >.  :  ) 

CALL  l.CHA!  ENTNUM!  I  1  ,6,0,2,20) 

CALL  GHLT 

uU TUI  10,20,30,35),! 

ID  w-l!C!15»l.)J) 

is.0  ENFMAT!'  ARTILLERY  MCBILirV') 

GUT 040 

20  WE 1TEI 15,200) 

_uO  FORMAT!'  At: MUR  ilDBILI  TV*) 

(»0  f  U  40 

30  WR I T  E ( 15,300) 

300  EURMAT!'  INFANTRY  MOBILITY') 

GC  TP  40 

3>  WE ITLl 15, 350) 

330  FtRMAl!'  MLCH.  I NE ANTR Y  MU d I L I T Y • ) 

40  CONTINUE 

CALL  GSTTIO.O) 

CALL  GPUT!  35,l  J4,-5b<J,0) 

CALC  GPUT ! 3fc,l  14,-30,0) 


CALL  oCHAC  ENTNU.K  I  )  ,37,0,  1  ,40) 


CALL  GHLT 
WP1TE(  15,500) 

5.j0  FORMAT*  •  SPEED  RANGES  (KPHI'l 

CALL  GSTT(0,U) 

CALL  GPUT  (  78, 1  04,-:>6u,  u) 

CALL  G?UT (75,114,-3^,0) 

CALL  GCHA( ENTNUM( I ) , 80, J, 1,401 

CALL  GHLT 
WK ITt  (  IP, 6001 

600  FCKMATC  NL.-fj’J  V.jLO-GO  SLU-oU  GO '  1 

CALL  G  STT (0,0) 

EL=1 21 

n, j  7o  J=1,j 

CALL  GPuKLL,  100,1000,0) 

E  L  =  E  L  + 1 

CALL  GPUKEL, 104,44,0) 
cL=EL+l 

CALL  GPUT(EL,  11C,S4j-J*£>  0,0) 

C  L  =  t  L  +  1 

CALL  F  OFCuS (4- J  ,  I  ,EL  ) 

IF  ( I  .EO.l)  GO  TO  75 
70  CONTINUE 

75  C..M  I NUt 


On  8  0  J  =  1 ,3 

CALL  GPUTIEL, 100, 1000,0) 
EL=EL+l 

CALL  GPUKEL,  104,30,0 
E  L  =  L  L  ♦  l 

CALL  GPUKEL,  110,‘333-J*5G,0) 
EL=  EL  +  1 


CALL  GCH A( ENTNUM (I),EL,0,l,4O) 

CALL  GHLT 

WF I TE ( 13,800) ( SPEED ( K,  1) ,K=1, 7) 

800  FORMAT (7X,I2,4X,2I3, 3X, 21 3 , 3X , 2 l 3 ) 

CALL  GSTT (0*0) 

LL=FL+4l 

DO  dul  K - 1 , 7 
ROUN 0=0,5 

IF  (SPEE0(K,I),LT«0)  ROUNO*-0.5 
SPEEO(K»l)=IFIX(FLOAT( SPEED (K , I ) )* ,80+RUUND ) 

80 1  CONTINUE 


'it.-  •*» 


IF  ll.tj.l)  .JO  l  (J  ci‘j 

^  Cf-NT  INUr. 

85  CONTINUfc 

1  LLiM  INUl 

FF  TUC  U 
FN  3 


» 

ft 


■Sip 


SUBROUTINE;  MESAGE!!) 

CO  MMGN/OI SPL/I UPLI4900) .IERR 

CALL  GHLT 

CALL  GSCH!  lUOo  ,  3 1> » 

I F ( I .Lw.'JWP I JF( 15,1000) 

IF (I .E0.1)WC IT  E< 15,2000) 

CALL  GSCHI 1001 , fa) 

WRITEI15, 1001) 

CALL  GSCHI 1002  ,U 
wkITE!  15,  l‘»  >2) 

CALL  GSUit  10u3  ,<>) 

WRITE!  15,  1003) 

CALL  GSCHI 1004,6) 

IF  U.EQ.O)  WRITE  (15, 1004) 

IF! I .EO.l) WRITE! 15,2004) 

CALL  GSCHI 1005,6) 

WRITtI 15.1005) 

1000  FCRMATI'NOTE' ) 

2000  FORMAT  I  'WARNING*  ) 

1001  FORMAT! 'CURRENT  REPLAY  HAS') 

1 00 2  EGKMATPNCT  ESTABLISHED') 

1003  FORMAT  I  '  EVENTS  OCCURRING') 
2004  FjKHATI'AT  THIS  PROBLEM') 

1004  FORMAT  I 'BEYOND  THIS  PROBLEM') 

1005  FORMAT! 'TIMt' ) 

CALL  ONSEL 
CALL  G  S  TT (0,0) 

RL TURN 

END 


SUBROUTINE;  O.NStl 
IMPLICIT  INTEGER  C  4-Z 1 

C.  ****  TURNS  UN  CH A- AC TER  AREAS  AT  THE  LEFT  SUE  OF  THt  SCREEN 

00  i  ENT  I T  Y  =  io j  i.l  tlO 

CALL  GEONI E  NT  IT Y ) 

1  CONTINUE 


ToKK 


SJBRGUTINE  8LKSEL 
IMPLICIT  INTEGER  <A -LI 

C  ****  FILLS  LHA^aCT  tX  AREAS  AT  LEFT  SIDE  JF  SCREEN  WITH  8LANK.J 
CALL  uHLT 

Du  L  £NTITY=lGOo»lJlO 
CALL  GSCH( ENT  I  TV  *b  ) 

WR  I  T  fc(  lb, LOOfJ 
M  J  .  F'  MAT  (  '  'I 
l  CL  NT l NUT 

CALL  GSCHI  101'u  ,351 
Wf  Htdb.  100G) 

call  csirii  »■;■) 

RE  TURN 
ENO 


» 

t 

« 


f 


SUBPPJTTNE  OCBMSGI S IDci 
IMPLICIT  l  f\i  T  E  G  £  K  (  A  -  Z  I 

CALL  uSCH(  1  '  ,^j) 

CALL  CHIT 

60Tb ( I i ? ) iS I Ul 

1  wk  1 1  E  C  IS,  l-'Wi) 

1000  f  u  RiMAT  (  •  Ei-'  I  li\L<LY  ijMiL?  ■>  BATTLE  ') 


2  W'H  t  (  15,2000) 

2000  FORMAT! ‘ENEMY  CODER  OF  tSA  T  T  L  L  ‘  I 

3  OALL  0  STT 1 0 ,0 ) 

h  TU  ,\N 
t-  00 


SUcir  LUT  INC  F  TH  MSG 
IMPLICIT  l  A-Z  i 

CALL  GHLT 

CALL  GSCH I 1 Ou>  t  (  ) 

WK  I  T  E  (  15,  l.)JO) 

1000  FORMAT  C*  OKA*  MOV LMtNT  PATH*) 

CALL  GSCH! 1001  to) 

Wlkl  15,1001) 
ll.Ol  1GFMA1  (  MuVE*  ) 

CALL  G  SC.H  (  1  Of/2  , 0 ) 

WRITE! 15, 1002) 

1002  FORMAT ( 'WAIT1 ) 

CALL  oSCH!  K':  3  ,(  ) 

WRITE!  13, l JO?) 

I  u03  FORMAT! 'SELECT  RETURN  WHEN  CCNL') 

CALL  GSCH ( 1005  «fc ) 

WRITE! 15, 1005) 

1,05  format  (max  <t  10  legS’) 

CALL  gSTT ! 0,0) 

RETURN 

END 


SUBROUTINE  ROMS.. 
IMPLICIT  INTEGER! A- Z) 


1000 


CALL  GHLT 

CALL  USC.HI  lu'  •  .  j‘j) 
wP IT  fc( IS. 10001 

FORMAT ( *  FUTURE  POSITION  CONTOURS’) 


CALL  ljSTT  ( ■  /  * u  ) 


ru  K  N 

two 


SU8RCUT l NE  PC3HSG 
IMPLICIT  INTEGER ( A-Z ) 

CALL  GHLT 

CALL  GSCH(  1000  ,t>) 

WRITE! 15, 1000) 

1000  FORMAT  CTI  VIEW  ONE  CONTOUR  AT  A*) 

CALL  GSUK  1001  ,o) 
hf  IT  E  ( 1  5,  IC-'il ) 

1001  F(J  3MAT  ('TIME,  SELECT  REJECT*) 

CALL  GSCH ( I0C2 , 6 ) 
wt  ITU  15,1  «jo2  ) 

1  .C2  FC  kMAl  l  •  SELECT  wETURN  WHEN  DUNE.*) 

CALL  oSTT (0,0) 

RETURN 
I- NO 


« 


> 

I 


s~* 


( 


SUBFGUTINE  REF MSG( PPCORE) 
IMPLICIT  INTEGER  ( A-Z J 


CALL  GHl r 

ojTC  ( 1 ,2) , p-Cupl 


I  CALL  GSCh<  100(1 ,6) 

WP ITL(  15, loGOI 

l*  GO.  E  -  ‘  RM  AT  (  *  CC'l  J  5TK  UCT  HEFERtNCE  lI.'mE*) 

CALL  oSC.ll  10. Jl  ,fc) 

WR  IT  E I  15, 10C1) 

1001  FURMATI'WlTH  I RACKBALL/ ACCEPT  KEY • > 

CALL  G$CH  (  1 1,  iZ  ,  <->  J 

WRITE  l  15,1002) 

100?  FORMAT!  •  SELtC  T  hLTOFN  RHLiM  L  I  Ni  '  I 

CALL  GSCHC 1003,0 J 
WRITE (  15,  1003) 

1.(02  FoRMAl  ( •  i  5  CUMRLLTl') 


CALL  uithl  1( 
WRIT  E( 15, 1004J 


t 

» 


1 

i 


SI  J 

i.L 

o? 


W'lH  V  OPMAT  t  «  SELECT  -.ETJPN  AGAIN  AFTER*) 

CALL  GSCH<  lOu5,M 

WRITE! 15,1005) 

1005  FUMAT!'LAST  LINE  IS  DRAWN  1 ) 

GALL  GSTT l 0  ,0) 

KL  TURim 

l  CALL  GSCH! 1000,6) 

WRITE! 15, 1006) 

1000  FORMAT !* SELECT  itFtPfcNCfc  LlNtS*) 

CALL  GSCH!  1.001, G) 

WRITE! 15, 1007) 

1007  FORMAT! 'TP  BE  ERASED  WITH  THE*) 

CALL  oSCR (  1002 , u ) 

WRITE!  15, lu  08 ) 

1 C 03  FORMAT  (*  LIGHTPE.',  AN  J  ACCEPT  KtY  *  ) 
CALL  GSTT! 0,0) 

RE TUF  N 
END 


» 

» 


t 


SUBROUTINE  KFPTMG 
IMPLICIT  INTEGER! A-ZI 

CALL  uHL T 

CALL  GStH ( 1000,6) 

WRITE!  15*1000) 

LOOO  f uRMAT! ‘SELECT  A  REFERENCE  PCINT'J 

CALL  GSIH! 1001  ,o) 
wE  ITE!  IE,  i,)01) 

1001  FORMAT ! *W  f TH  T RACK BALL / ACC 6P T  KE  Y  • ) 

CALL  G STT ! 0 » 0) 

RETURN 

LNO 


t 

f 

• 

» 

I 

I 

> 

* 


rr» 


♦ 


y 


CALL  oSCHi  IOOij  ,6) 

WR  I T  E  (  l  5  •  LuOu  ) 

1000  FORMAT { • ENTER  A  RESUPPLY') 

CALL  OSCFi! 1001 ,6) 

WP 1 1 E ( 15,1001) 

l.ol  FORMAT!  'PERCENTAGE  OF  MAXIMUM*) 

CALL  G SCH {  1003 ,o) 

WRITE! 15, 1003) 

1003  FORMAT ('ACCEPT /REJECT  LEVEL') 

CALL  G  S  T  T ( 0 » C ) 

RETURN 

ENU 


SJSROUTlNt  SELUMG 
IMPLICIT  INTEGER(A-Z) 

CALL  GHl.T 

CALL  GSCH ( l OOO , t  1 

WRITE!  1 1>.  1000) 

1000  FORMAT  I 'SELECT  UNIT  WITH  THE') 

CALL  cSCHl  1001 tU) 

WRIT  t( IS, 1001  ) 

1001  FORMAT  I  'TkACKOALL  AND  ACCEPT  KEY') 

CALL  GSCri! 1002,6) 

WRITE! 15,1002) 

iwC2  FERMAT! 'RETURN  WHEN  CGMPLtltJ') 


CALL  G  S T T ! 0 , 0 1 

RE  TU  RN 
END 


SUBROUTINE  TtoLUM  I  TYPE) 


C  CCILGRS  CONTOUR  FEATURES 

GO  T  o  (  1  '),c'0 , 21),  ?  1<),  Ro  )  »  1  TYPE 

C  kUAD  —  GREEN  LINE 

10  I BF  T -0 

GO  (  Li  7 :  ■ 


C  LAK.t  AND  —  -.Civ  LINE 

->‘i  1=0 

J=0 
l  B  R  T  =  3 

Giv  1  0  bJ 

c  CITY  —  it.  Allot  LINt 

30  1=1 

J=0 
IRRT=3 
ijti  T  L  ft  0 

C  HILL  —  YELLOW  LINE 

40  1=0 

J=1 

I  tl  R 1  =  1 
GO  TO  S1 

C  FOREST  —  GREEN  DASH 
•v)  CALL  OPoT  (3  ,  ISO,  1,  ?> 

GO  U  7- 

bO  CALL  GPUT(4, 140, 5,11 

CALL  fiPUT (4,1 40 » 6 »  J 1 

7u  CALL  GPUTl  3  .130.2,  lliKT) 

KF  TO P  N 
Ein  0 


SUBkUUTINE  TMS3UHES) 

COMMON/ MO Vt /MO Vt NT 
IMPLICIT  INTEGER ( A-  Z  l 
COMMON  A«>.RAY( 63) 

01  ML  Nil cN  TIMESII) 

C  ****  DISPLAYS  ARRIVAL  TIMcS  CONTAINED  IN  TIMES  AT  NODES  IN  ARRAY 

X0L0=ARRAY(2> 

YCLD-AR vAY(3) 
r’N  TENT -ARRAY  l  I  ) 

Do  ID  I=UPNTCMT 

X=ARRAY(I*2+2) -42 
Y= ARRAY ( I Y2+3I-7 

If (X.EG.XCL0.AND.Y.EQ.Y0LD)Y=Y-15 

fc  NT=M(.  VENT* I 
CALL  GERM  ENT  » 

CALL  3tNT  IL.N1  ) 

CALL  GPUT ( I , 10U,X,nj 


I 

I 

( 

» 

I 

.  *  "" . . . mm  »'■  ii— .  i  mii 


\ 


y 


C  ALL  CHUT  ( t  ,  1 1  ,i,Y  .  01 
CALL  (iSCHCtNT.S) 

UUTPUT  =tii-'  (  TIMLSTI)  ) 
CALL  GHLT 

WRlTE(15t 1000) OUTPUT 
CALL  GSTTIOtOI 

XLL;)  =  X 

y:.lj=y 

c  iwr i mu l 

PE  TURN 
EC  PM  AT  (  1 4  J 

uNU 


SUb<H)UTlNfc  TRi\8HlCGDE» 

COMMGN/MDF ILfc/MDFI KHkj  I .MJFMAX 
IMPLICIT  INTkbtHA-ZI 

*■*  SMS  T  t  K  i ,  A I  F  btUCHTNtSa  IU  CHOSEN  LEVEL 
FL  PTP=  I 

FLPTR=Ml)F  (  FLP1  R  ) 

IF  IMOf  (FLPTP) . tU.O) RETURN 


CmLL  GEM  IP \>F  <  flH  -U-Z)  I 
CALL  u  PUT  (  3,I30»^«Cl.0L  ) 

GUTbi 

r  m  d 


ICUUE) 


SUBROUTINE  TRRNIDITYPE) 
IMPLICIT  INTEGER ( A-Z ) 

CALL  GSCUI 1000  , 35) 

CALL  GHLT 

GO  TO  ( I*  2 , 3. 4,  5  ,6, 7, 8)  .TYPE 

V*K  ITE  (  15,  10) 

FORMAT  ( •  RUAO*  ) 

GO  TU9Q 

WR ITE ! 1 5. 20 ) 

FORMAT! 'RIVER* ) 

GOTO  90 


W^lTEl 15,30) 
FORMAT! 'LAKE'  ) 


O-.  It-Sli 


*  krlltllS.Ai  | 

<♦„  FORMAT  {*  CITY*  ) 

G0T090 

'■>  m 1  I  T  t_  (  I  *>  •  Go  ) 

V,  I  J  F  R  A  H  ’HILL') 

GO  T '  90 

6  WHITE! 15,601 

60  FORMAT  (  *  FOREST  '  ) 

G jTP90 

t  wKnms.m 

70  FORMAT ('  *) 

GO  T  ('  90 

i  WF  ITE(  15,'Jul 

o  FORMAT  <  *  INKER  HI!  L*  I 

90  C4LL  GSTT(OfO) 

RETURN 


NO 


SUBROUTINE  UPSMSG 

implicit  integer ia-zj 

CALL  GHLT 

CALL  bSCM 1000,61 
Wk ITEI 15, 1000) 

1000  FLRMAT  ('PLACE  UNll  WITH  TRACKBALL') 

L A LL  o^TT  C  ■  •  t  *’.» I 

rf  TUkN 
END 

-  i\0  Ijf  LA T  m 


SUGTUUT  1  i\f  US  TMSu(  PRC'JPt) 
IMPLICIT  i NT  t  ( A-Z ) 

CALL  GSCP!  ( 1000  ,35) 

CALi  GHLT 

GuTK  1,2,  3,4,  5)  ,  Pr.oDkfc 

l  WPITfct 15,1000 > 

1000  FORMAT ( ’ADO* ) 
iUR.o 

■>  MKi  Tt  (  15,  2>’  /■  I 

2000  FORMAT  ('JELETE') 

GOT  (16 

W FIT t< 15,’OOj) 

TuUj  FORMAT  ( •  At  SUP  PLY*  ) 

GUT  C  6 

4  W PI Tfc ( 15,4000) 

4>. .00  FORMAT (• COMBAT  POSTURE  *  I 

GOT  06 

5  «R  ITr.  (15, 5.10.1  ) 

5000  F OF  MAT (• RELOCATE' I 

4  CALL  GSTT(O.O) 


•'Flu-;! 

lW) 


SUBROUTINE  WARNrtG 
IMPLICIT  INTEGER  (A-Z) 


CALL  unLT 

call  csc>;(  loci  ,t ) 

WRITE! 15, 1001! 

1001  FORMAT (‘THIS  ACTION  WILL  PREEMPT*! 

CALL  OSCH (  1002  «  (•! 
wRIltliS, 1 0U2 I 

1002  f UR  MAT ( *  PL ANNE  0  UNIT  ACTION') 

CALL  GSTT(O.O) 

RETURN 

ENl) 


$ 

» 

§ 


t 


••nr 11 1 
•it  •*» 


SU BP.GUTINE  CKINTIKEY) 

COMMON/ ATT/ I  AT  T ( lit 

** 

**  RtTUPN  A  CODc  COkELSPOuDl  No  TC  THE  I  NTERkUPT  OCCURRING. 

**  RESETS  I  ATT  (  i  )  TO  ZERO  AnD  RESTARTS  THE  DISPLAY  WITH  LALL  oSITIj,;). 


**  RETURNS  -l  IE  NG  INTERRUPT  HAS  OCCURRED. 
** 


KEY=KEY  ■♦■100  1100  TG  131) 
KE  Y=R£Y  NUMBER  (0  TO  31) 
KtY= 134 
KtY=34 

KE Y=10G00+ENTITY  NUMBER 

KEY=  40 

KEY=42 

KrY=42 

RE Y  =  46 

KE  Y  =  '.8 


1>  IE  I IATTI 5).Ew.-l)  I  TEMP=  1  Ou 
IF  (UniSl.K,' •')  ITEMP=0 
?n  IE  ( IATT( 1) .Nc.24)  GO  TO  30 
KEY*ITEMP+34 
GO  TO  1000 

3  >  IE  (  IAT  T(  l)  .NE  .32)  GO  TC  40 
(V6Y=1J000«-IAT1  (  ;) 

Go  TO  1000 

4o  IE  ( IATTI 1) .NE.3U)  GO  TC  50 


** 

FOR 

KEY  PRESSED 

■ii : 

f  Ge. 

KFY  I.ELLASEP 

■i?  *v 

F  G  R 

LIGHT  PEN  Switch  PEEoSEu 

EUR 

LP  SWITCH  RELtASfc) 

*  * 

PGR 

LP  DETECT 

** 

ECC 

CYCLE  TIMER 

* 

FOR 

JMP  TG  SUBPILTUKE 

** 

FOR 

J  MR  RETURN 

*•; 

f  e 

I  NT  ER-UPT  WGRC 

4- 

e  r  k 

r esc  r /HALT 

** 

** 

KEY=-1 

IE  UATT(l).LO.O)  RETURN 


KEY=40 
GU  TO  1000 

5.  r E  ( IATTI  1)  .NE  .26)  GO  TO  60 

KLY-42 
GO  TO  10 00 

60  IF  I  I ATT ( 1 ) .NE  .24)  GO  TO  7C 
KEY*44 
GO  TG  1000 

T I '  IE  ( IATTIl)  .Nc.22)  GO  TO  80 

KE  Y=  4ft 


Gu  Tu  1004 

80  IF  (IATTIl) .NE  .20)  GO  TO  90 
KE  Y=  48 
GU  TO  1000 

40  IE  ( IATTI 1) .N1 . 36)  GO  TO  100 
KEY= ITEMP+I ATT (3) 

GU  TO  1000 

100  CONTINUE 
1000  I ATT  1 1 ) =0 

CAU  GSTTIO.O) 

RETURN 


1 


SU8KUUT INt  LAM  PS C I  TUP* l 2N0 , 1  3RD , I 80T0M  i 


C  1  HIS  ROUTINE  TURN  S  CEF  ALL  PkFVIUUSLY  LIT  ILL  YS »  AND 
C  TUPfii  UN  ONLY  HuSE  SPECIF  IcO  1  ft  Trie  PARAMETER  LIST 

C  EACH  VARIABLE  IS  TREATED  AS  A  BINARY  NUMBER  FROM 
C  0  TO  255.  FUR  EACH  NGNZERC  BIT,  THE  CORRESPONDING 

C  LIGHT  OF  THE  PROPER  ROW  WILL  BE  TURNED  ON 


DIMENSION  LAMP (4) 

Lamp (  i  )  =  i botgm 
lamp ( 2 ) = i 3rd 

LAMP  C  3  )  =  I 2ND 
LAMP(4l=lT0P 
CALL  GLMPI  1,-1  .w) 

DO  30  1=1,4 
MAX=  256 
00  20  J=0,7 
MaX= MAX/2 

IF (LAMP (I)  .LT.  MAX)  GO  TO  10 

Kf Y=I*3-J-1 

CALL  GLMPd.KEY.l) 

LAMP ( I ) =L AMP( I ) -MAX 
lu  IF ( LAMP ( I )  . LO .  0)  GO  TC  30 

2  CO NT INUE 

30  CUNT  1 N Jt 

RETURN 
END 


SUBROUTINE  PENPIKI  ENTI  TYI 
CC  MM  (JN/ BRANCH/ UPTURN 
IMPLICIT  INTEGER  <A-C#E-Z) 

LuGICAL  ORTURN 

C  ****  ALli'iwS  USER  To  SlLcCT  A  SCREEN  U1SPLAYE0  ENTITY  US  IN 
C  ****  LIGHTPEN.  THE  ENTITYISI  ARE  PREVIOUSLY  MADE  LIGHTPE 

ENTI  TY=0 

ACCEPT= 1 
R  T  UF  i'l—  TO 
Of  TUkN= .R AL  iE. 

CALL  LAKPS(64»0*0»0I 


1 


CALL  Ct\fNT(KFY) 


z’  c 


It-  UcY.NE.R  TU,.  MGUTC2 

IELFN1  ITY.NE.J  1LALL  GPUTt  3  •  I3U»  3*  J) 

CALL  L  AMPS ( 0  »0  ,0 .0 ) 

OP turn=.true. 

RETURN 

IF  IKEY.Lt  .  H<Ov-0)GnT03 

IKtNI  ITY  .NE.OJCALL  GPUT(  3 , 1  40,  3,0) 

ENT1TY=KEY-L000G 

CALL  GENT ( ENT ITY) 

CALL  GPUT ( 3  ,130,3, 1 1 
CALL  LAMPS( 64,0.0,2) 

GCTl  l 


IFLKEY.NE.ACCEPT.UR.ENTITY.Ea.OIGOTOl 
CALL  GPUT ( 3  * 130*  3,0 ) 


RE  TURN 
EN  D 


SUBROUTINE  DRWSGS ( ENT  I T Y, A RR AY , LENGT H) 

IMPLICIT  INTEGER  (A-Z) 

U: MI  NS  I  UN  ARRAY (I) 

L  ****  ROUTINE  DRAWS  A  LIST  UE  COORDINATES  CONTAINED  IN  ARRAY 

C  ****  WITH  LENGTH  AS  ENTITY 

ELEMNT-fc 

CALL  GBt G( ENT  I T Y ,  A «  k  AY  <  1 ) ,  AkR  AY  I  2  ) ) 

CALL  GRUTI  5,i76u,U,li) 

:*-•  1  J=l,  LENGTH,  2 

CALL  GPUT ( ELEMNT ,5  3  ,  ARR  AY  (  JI  ,  ARR  AY(  J  «-l  )» 

EL  EMNT=f LEMNT+ I 
l  CONTINUE 


RETURN 

END 


SUBROUTINE  L PS £NS( SWITCH, ENT ITY» RANGE ) 
IMPLICIT  INTEGER  (A-ZI 

Ob  I  £NTNUM=ENT ITT .RANGE 
CALL  GEN  T( ENTNUM ) 

CALL  GPUT  l  3,  I  30,  A.Sw  I  ICrl) 
CONTINUE 

RETURN 

END 


SJbrUUTJNG  C'_«L  CP  IL'Hit  ) 

IMPLICIT  INTEGER! A-Z) 


C  **** 

C  *  *  - J- 

c  **** 
c  **** 
c  **** 


SETS  COLOP  VIA  CONTROL  REGISTER  SET  IN  ELEMENT  4 
Cl. l)ES:  RED  a 

YLLLOw  1 
UP.ANGE  2 
GREEN  3 


A  =  0 

B=  .) 


U  (LPUE.GE.2 ) A=1 

IF (CUOE.EQ. L.OR.COOE.EG.3I B- L 


CALL  GPUT(4,140,5,A) 

CALL  G PU T ( 4 *  1 40 1 6» B I 


PE  TOP  N 
ENO 


\ 


SUBROUTINE  S HP CUR 
1EL=5 

CALL  GPUK  IEL,  1740,  0,  1 ) 
lCL=lfcL+-l 

CALL  GPUT  ( ILL, 1600,3,0 ) 
IEL-IfcL  +  1 

CALL  GPUTUEL.lt.CO, 7,0) 

RETURN 

END 


